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ACTUALIDAD. En Barcelona una gran 
feria: el Sonimag. 


DISCOVERY 1. Una unidad de disco que 
encaja en el Spectrum 


JUEGOS. Corre con el 911 TS y limpia 
la ciudad de malignos Gremlins. 


INTELIGENCIA ARTIFICIAL. 

Después de explorar el lenguaje como 
base del pensamiento, seguimos con la 
memoria. 


El Discovery y el 
Spectrum, una pareja 
muy bien avenida. 


UN NUEVO OPERATIVO. 
Reescribimos el bucle principal para БА 
añadirle comandos muy interesantes al 

Spectrum: un listado fascinante. 


QL-MAGAZINE. Con archive, Cartridge 
Doctor, y las últimas aplicaciones 
comerciales. 


CODIGO MAQUINA. Conceptos ЕЗ Inteligencia artificial: un buen Interface hombre-máquina. 
básicos que todo «humano» debe conocer. 
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GUSANEZ. 


PROGRAMAS. El juego del Parchís, 
para las tardes aburridas, y Listas ЕЗ 
Escolares, para los profesores 

informatizados. 
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PREGUNTAS Ү RESPUESTAS. 


marcianos. 


\ Й а dedicar las 
das las vacaciones estivales. De Ordenador 
Pasadas lo último de Sinclair: eda mucho 
påginas centrales а lo и le queda 


У 2 ипдие айп 
s dia a dia, å Spectrum. 
НИ å cotas de su hermano menor el Sp 
para alc 


i Қ тов еп езіе | 
sirve, como уе на 
todo-terreno. que ' a 
А ү. Ta па jugar al parchis como и па 
er 12 la pesada labor de todos los curs 
fesore: Г 
En la lista de los nuevos alum 


ACTUALIDAD 


| 
| 
| 


10 REM NOS VEMOS EN EL SONIMAG. Como todos los años, este mes de 


Septiembre. se celebra el Sonimag, 918 inco 
de microinformática junto. а las ya tradici 
sonido. Pese a la saturación que está come 
el mercado, зе esperan novedades para Spec 
materia de software. También estará el QL, 
der bien a la presión де Amstrad У MSX, со 
de programas profesionales у la unidad de 
Sinclair, que distribuye Investrönica- 


Inyestronizs 


rpora una sección 
onales de imagen y 
nzando å alcanzar 
+rum, sobre todo en 
que puede respon” 
n la presentación 
disco "oficial" 


20 REM ¿QUIEN NO CONOCE EL Tasword? Este procesador de texto para 


Spectrum se ha convertido en un auténtico 
los que usan la versión española, Context, 


Best Seller. Para 
comercializada por 


Pin-Soft, vna buena noticia: acaba de aparecer la versión 
ocho, que permite, entre otras пеіогаз., utilizar los caracte 
res especiales del catalán. Y es que la autonomia зе nota en 


todos los ámbitos: 


30 REM Y SINCLAIR SIGUE DANDO QUE HABLAR- Ahora surgen rumores de 
dificultades en las negociaciones con Maxwell; dificultades 
que pueden retrasar la carrera tecnológica del laboratorio de 


Cambridge, еп un momento en que entramos уа en 1 


las ventas navideñas. Los rumores apuntan 


a carrera de 
hacia el Pandora, 


un compatible Spectrum totalmente portåtil con 128K RAM. Sir 


Clive guarda un prudente silencio- 


40 REM EL CENTRO NACIONAL DE MICROELECTRONICA echó. а andar este 
verano. Dependiente del Consejo Superior de Investigaciones 
Cientificas, intenta potenciar la investigación Y desarrollo 


de una -tecnologia española en este sector 
у, sobre todos fructifera vida. 


„Те deseamos larga 
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Unidad de disco 


Dado el gran número de alternativas para el Una unidad de disco bien 
; A adaptada al Spectrum 
almacenamiento masivo en el Spectrum, parece que la 
Una de las principales virtudes 
del Discovery es que ha sido dise- 
aporta algo realmente nuevo. El Discovery nos ofrece una айо pensando en el Spectrum. En 
Ў efecto, una vez conectado, у иѕап- 
unidad clåsica y sin experimentos, pero muy vålida como do el tornillo y los dos topes de 
Е Å goma que se nos facilitan con la 
alternativa а los restantes sistemas. unidad, el conjunto queda firme- 


aparición de una unidad de disco sólo debe justificarse si 


mente conectado, ofreciendo una 
gran comodidad de acceso a las 
funciones del Spectrum. 

La unidad presenta un ancho 
algo inferior al del Spectrum. Su 
base presenta una prolongación en 
la parte anterior, con un bus de ex- 
pansión que permite una buena fi- 
jación del ordenador. El único 
problema aparente es que el Dis- 
covery «aprisiona» la parte trasera 
del Spectrum, con la consiguiente 
dificultad para conectar la salida 
de TV y la toma de cassette. El co- 
nector de alimentación no se pue- 
de conectar, pero eso no es un in- 
conveniente, ya que el Discovery 
proporciona la corriente al sistema 
entero. ¡Menos cables en nuestra 
mesa! 

Nosotros no hemos tenido nin- 
gún problema en la «maniobra de 
acoplamiento». Más problemático 
es extraer el cable de cassette о 


Conexiones del Discovery. 


TV, ya que habrá que destornillar 
el ordenador. Quienes dispongan 
de monitor de vídeo compuesto no 
sufrirán este inconveniente, ya que 
pueden conectar su aparato a una 
salida de vídeo que hay en la parte 
trasera de la unidad. 

Igual que otras unidades, se aña- 
den algunos extras junto con la 


unidad de disco. Discovery 1 in- 
cluye un port Centronics y una co- 
nexión para joystick tipo Kemps- 
ton. Siendo éstos los periféricos 
más vendidos para Spectrum, pa- 
rece lógica su inclusión. El lateral 
derecho del aparato incluye estas 
dos conexiones, junto con una pro- 
longación del bus del Spectrum. 


| 


ага Juan Rodriguez el Dis- 
covery es un auténtico des- 
cubrimiento. Lleva la direc- 
ción de Halt Software, em- 
presa afincada en Santiago 
de Compostela, canalizando la ac- 
tividad informåtica que ofrece una 
ciudad eminentemente estudiantil 
como ésta. 


Р 


A principios de junio se decidie- 
ron por el Discovery. Ahora, 
transcurrido un tiempo prudencial 
de estudio del equipo, nos cuenta 
sus experiencias. 


—¿Por qué una unidad de discos 
para el Spectrum? 


—Todo empezó еп el momento 
en que quise realizar programas un 
poco serios, El cassette me produ- 
cía múltiples trastornos psicoso- 
máticos. El microdrive me gustaba, 


El Discovery por 
los caminos de Santiago 


pero no resolvía mis problemas: al 
utilizarlo asiduamente para progra- 
mar la fiabilidad, aunque superior 
al cassette, resultaba insuficiente. 
Podían fallar muchas cosas: el 
Spectrum, la corriente, yo mismo. 
Pero perder ocasionalmente las 90 
K de un cartucho me sumió en pro- 
fundas depresiones periódicas de 
difícil superación... 


—¿Supongo que ahí es cuando 
entra en juego el Discovery? 


—Sí, me interesé por las distin- 
tas unidades del mercado. Estuve a 
punto de comprar la de Timex y la 
BETA. Pero al final me decidí por 
el Discovery. 


—¿Y fue una decisión positiva? 


—Por supuesto. Los ficheros de 
acceso directo evocaron en mí vie- 


jos proyectos sobre inteligencia ar- 
tificial. Pero siguen siendo proyec- 
tos. Ahora me dedico a la gestión 
de pequeños negocios. Lo del disco 
de RAM es un buen invento, con- 
sistente en manejar 32 K de RAM 
como si fuese la quinta unidad de 
disco. Las opciones adicionales ha- 
cen posible una gestión de peque- 
ños negocios digna con una inver- 


sión reducida. El Discovery по | 


sólo sirve para programar más có- 
modamente, también sirve para 
programar el Discovery. Intere- 


sante ¿verdad? 
—¿Y en cuanto a los defectos? 


—Es difícil esa pregunta: decir 
los defectos de una señora estupen- 
da es poco elegante porque, en rea- 
lidad, todos deseamos perdonárse- 


Los discos de 3 1/2 pulgadas 
se imponen como un nuevo 
standard 


Pero vamos a lo esencial: la uni- 
dad de disco. Esta asoma por enci- 
ma de nuestro ordenador, en una 
posición cómoda para su uso. El 
Discovery está disponible en dos 
versiones, con una o dos unidades 
de disco de 3 1/2” (formato.Sony). 
Los discos son de simple cara/sim- 
ple densidad, lo que nos da una ca- 
pacidad aproximada de 180K por 
diskette. Es posible la ampliación 
de uno a dos lectores, a un precio 
de alrededor de 30.000 pesetas. 
Uno de los aspectos más importan- 
tes de cualquier disco es el sistema 
operativo, que complementa el 
BASIC con instrucciones que per- 
miten el manejo de los nuevos pe- 
riféricos. En el caso del Discovery 


los. 
confesar que tiene sus sorpresas. 


De todos modos, tengo que 


En primer lugar, viene con un 
enchufe alucinante, pero totalmen- 
te inútil para la instalación españo- 
la. Parece querer decir que los 
electrones anglosajones son más 
«chachis» que los tercermundistas. 


Opus 


se ha optado por mantener la com- 
patibilidad con el microdrive al 
måximo, respetåndose la sintaxis 
de los comandos en tanto sea posi- 
ble. La elección parece lógica, ya 
que el microdrive es un medio de 
almacenamiento muy extendido, y 
el que cuenta con más software en 
el mercado. 


Realizado el cambio, si algo no 
funciona son cosas de la ULA. 


Otra sorpresa es el disco de tres 
pulgadas y media. La información 
es insuficiente, imprecisa, trivial y 
а veces errónea. 

Hay quien dice que otro proble- 
ma es que no hay programas espe- 


` microdrive. Si los programas están 


discos son de 
simple cara/simple 
densidal 


El sistema de paginación es muy 
similar al del Interface 1, pero in- 
cluye algunos cambios curiosos. 
Por ejemplo, si tecleamos PRINT 
USR 8 el sistema nos contestará 
imprimiendo el número de la ver- 
sión que estemos utilizando. A no- 
sotros la prueba nos dio como re- 
sultado 2.1. Por otro lado, un USR 


cíficos para el Discovery. Yo creo 
que esto es bueno. Siempre es posi 
ble hacerlos o adaptarlos, y eso sig- 
nifica trabajo para quien sepa ha- 
cerlo. 


—Finalmente, ¿a quién se la re- 
comendarias? 


— EI asunto tiene dos vertientes: 
el programador y el usuario. Desde 
el punto de vista del programador 
no se puede trabajar con cassette 
sin perder los nervios. Si quieres 
desarrollar juegos © programas 
orientados al саззепе, necesitas el 


orientados al microdrive, es reco- 
mendable el Discovery. 


Desde el punto de vista del usua- 
rio el cassette es suficiente para 
juegos. Si utiliza el Spectrum para 
la pequeña gestión, debería bastar- 
le el microdrive. Si no le llega, el 
Discovery es lo único razonable. 
Pero no cabe duda que para este 
usuario, la elección del equipo de- 
pende de la disponibilidad de sofi- 
ware adecuado a sus necesidades 
específicas. 


14070 nos harå RESET del siste- 
ma de disco y el ordenador. USR 0 
sölo pone a cero el Spectrum, sin 
afectar al sistema de disco. 


Los comandos son compatibles 
con los del Interface I 


Е! primer paso para utilizar un 
disco es formatearlo. Para ello bas- 
ta teclear FORMAT “m”;n;“ Nom- 
bre”. Después de unos quince 
segundos, el disco habrå sido 
preparado para su uso. Å partir 
de езе momento, el comando 
CAT п поз contesta con una 
lista encabezada por el nombre del 
disco, seguida por los nombres de 
los ficheros existentes, y finalizada 
por el espacio libre en el disco. Los 
numeros de unidades estån asigna- 
dos а las unidades existentes, pu- 
diendo usarse el numero 3 para 
formatear un segundo disco en la 
unidad I y hacer copias en la ver- 
sión con una sola unidad. 

Cuando usemos la unidad 5 el 
sistema entenderá que nos referi- 
mos a un RAM disk, es decir, a 
una simulación de disco que utili- 
za la memoria de nuestro orde- 
nador. Para utilizarlo hace fal- 
ta introducir CLEAR 32767, y 
después una sentencia FORMAT 
“m”;5; “Nombre”. A partir de ese 
momento, podemos salvar y cargar 
ficheros del disco en RAM, con la 
salvedad de que toda la informa- 
ción desaparecerá cuando conecte- 
mos la alimentación de la unidad. 
Si bien la idea de un disco en RAM 
parece ingeniosa, no la encontra- 
mos de gran interés en una máqui- 
na que dispone de sólo 40K libres, 
de las que 32 son utilizadas por el 
disco. Sólo parece útil para traba- 
jos de programación en los que se 
modifique repetidas veces un pro- 
grama pequeño. En este caso se 
pueden salvar en el RAM disk las 
distintas versiones y probarlas, con 
cuidado de no olvidar pasar la in- 
formación al disco real antes de 
dar por terminado el trabajo. 

Con el Interface I, el Discovery 
amplía el sistema de canales que 


o 


MADE IN GREAT BRIAN 


Vista posterior del Discovery. 


utiliza el Spectrum para comuni- 
carse con los periféricos. Los cana- 
les afiadidos son: «j», que controla 
el joystick. «t» y «b» se encargan 
de la comunicación mediante el 
Interface paralelo, y «m», que se 
refiere a ficheros de disco. 


Más canales e instrucciones 
más potentes 


Hasta aquí igual que la expan- 
sión de Sinclair. Las diferencias 
empiezan a aparecer con el canal 
«d», que se refiere al disco entero 
en operaciones de copia. «++», que 
se utiliza para asignar un canal a 
otro canal previamente abierto; 
«CAT» nos permite leer o escribir 
directamente del directorio de un 
disco (aunque la escritura se nos 
desaconseje, ya que hay peligro de 
estropear los datos almacenados). 
«CODE», por último, se utiliza 
para leer o escribir directamente 
de la memoria, y nos proporciona 
acceso al hardware de la unidad. 


Una especificación de canales 
muy completa, que aporta noveda- 
des interesantes sin perder la com- 
patibilidad. Los canales se asignan 
соп la sentencia OPEN + , que 
también resulta ampliada con res- 


pecto al microdrive. El nuevo for- 
mato es OPEN + flujo;canal AC- 
CESO. 


La sintaxis de la instrucción 
queda ampliada y simplificada, ya 
que con el Discovery no es necesa- 
rio especificar «m» si el canal se 
refiere al disco. Por otro lado, el 
parámetro de acceso permite las si- 
guientes posibilidades: IN, que in- 
dica que el fichero sólo se puede 
leer, y OUT, para los ficheros de 
escritura. 


En el caso del canal «m», se le 
pueden indicar más opciones: 
EXP, para EXPandir un fichero 
secuencial, nos permite escribir a 
partir del final del fichero; se le 
puede añadir una longitud, que in- 
dica la ampliación máxima que 
puede sufrir el fichero. También 
aparece la opción RND nl;n2 que 
permite crear ficheros de acceso 
aleatorio. El primer número indica 
la longitud de cada ficha, y el se- 
gundo el número de éstas. Para 
abrir ficheros ya existentes, basta 
utilizarla omitiendo el segundo 
número. 


En relación con los ficheros de 
acceso aleatorio, existe un nuevo 
comando necesario para posicio- 
narnos antes de leer o escribir: se 
trata de POINT + flujoznúm., que 


posiciona el flujo de que se trate al 
principio de la ficha indicada. Si se 
abre un fichero secuencial con ac- 
ceso aleatorio y longitud de ficha 
1, se puede utilizar POINT para 
recorrerlo con total libertad. 


Respecto a los ficheros secuen- 
ciales, los únicos de que dispone el 
microdrive, la principal diferencia 
es que pueden abrirse para entrada 
o salida sin depender de que exis- 
tieran o no previamente. También 
el comportamiento mediante IN- 
KEYS es distinto. El Discovery no 
da error de fin de fichero cuando 
leemos más allá del fin de un fiche- 
ro. Simplemente devuelve una ca- 
dena vacía. Si deseamos compro- 
bar el fin de fichero, debemos utili- 
zar la instrucción USR 432, que 
devuelve el número de bytes que 
nos quedan por leer en el flujo «ac- 
tivo». Para convertir un flujo de- 


terminado en el activo basta intro- 
ducir antes PRINT #n; 


Los comandos SAVE, LOAD, 
VERIFY y MERGE trabajan de la 
forma habitual, aunque en el caso 
de SAVE el sistema no da un men- 
saje de error si el fichero ya existe, 
sustituyéndolo simplemente por la 
nueva versión. Esta característica, 
cómoda en muchas ocasiones, re- 
sulta peligrosa si no tomamos la 
precaución de comprobar 105 
nombres en el disco. 

Otro comando de mucha impor- 
tancia es MOVE, que permite 
transmitir el contenido de un flujo 
a otro. Una mejora importante con 
respecto al microdrive es que, si 
hacemos MOVE «k» to «s», por 
ejemplo, podemos finalizar pul- 
sando SHIFT ENTER. Esto nos 
permite llenar ficheros directa- 
mente desde el teclado. 


Abrir directorios, un lujo 
al alcance de pocos 
sistemas de disco 


Para abrir el directorio de un 
diskette basta hacer OPEN + n- 
“САТ”. A partir de ese momento 
podemos leer las diversas entradas, 
que consisten en 16 bytes para 
cada fichero, con tres punteros y el 
nombre del archivo al que están 
asociados. La primera entrada se 
refiere al propio directorio. Cuan- 
do se formatea un disco, el sistema 
deja sitio para 110 ficheros. 

Si el disco contiene muchos fi- 
cheros pequeños, podemos que- 
darnos sin sitio en el directorio an- 
tes de que se acabe el esapcio físico 
del disco. En ese caso, haciendo 
OPEN #4;“CAT”EXP long. y 
después СІЕАВ +4, el sistema 
nos ampliará el directorio a la lon- 


LLEGA EL 


DISCOVERY 


El sistema compacto que reúne en una sola unidad los siguientes elementos: 


* Unidad de disco ultramoderna de 3,5” con 180 K. * 
* Interface paralelo Centronics. 
* Interface de joystick tipo Kempston е 


Salida para monitor monocromo. 


* Repetición del bus trasero del Spectrum. 


Alimentación interna de todo el sistema, 


[FACILMENTE AMPLIABLE А 360 Kybtes.] 


PROGRAMAS DISPONIBLES O DE PROXIMA APARICION 


е... 


Contabilidad PNC (500 cuentas/4000 asientos) 
Tratamiento de textos 

Cambio de Moneda 

Control de stocks 


* Facturación 
* Nóminas 
* Base de Datos 


[PODEMOS PASARLE SU PROGRAMA FAVORITO A DISCO] 


DE VENTA EN LOS MEJORES ESTABLECIMIENTOS DE INFORMATICA 


SISTEMAS LOGICOS GIRONA, S.A. - Avda. San Narciso, 24 - 17005 GIRONA - Tel. (972) 237100 


N LF. A17/081068 


gitud deseada. La longitud debe 
especificarse siempre como mul- 
tiplo de 16 bytes. Por la misma 
razón, es preferible abrir siem- 
pre los directorios como OPEN 
+ 4;*CAT”RND 16, y seleccionar 
la entrada deseada mediante 
POINT. 


Copia de discos y 
compactación 


Existen otras características que 
diferencian al Discovery del micro- 
drive. Entre ellas, lo más interesan- 
te es que este sistema permite refe- 
renciar un disco entero. Por ejem- 
plo, MOVE “а”! TO “d”;3 per- 
mite copiar el contenido íntegro 
del disco uno al tres. El sistema nos 
indicará cada cierto tiempo que 
cambiemos el disco y pulsemos 


Discovery abre los ficheros tipo CODE, о los 
programas como si fueran archivos de datos. 
cualquier tecla. El tiempo que tar- 
da en realizarse la copia depende 
de la memoria libre de que dispon- 
ga el Spectrum en ese momento, 
ya que el sistema utiliza como buf- 
fer la memoria libre. En algunos 
casos, con el disco totalmente Пе- 
no, la operación tardó casi cinco 
minutos. 

Otra operación que puede aho- 
rrar tiempo en discos de datos que 


Cuide su Spe 


contengan muchos archivos es la 
compactación. Se realiza mediante 
MOVE “d”;1 TO “d”;1, y en ella 
el sistema reorganiza los ficheros, 
que al irse borrando y escribiendo 
habían desordenado la estructura 
del disco, para obtener el máximo 
rendimiento. La operación es len- 
ta, pero resulta interesante reali- 
zarla de vez en cuando en discos 
muy cargados, sobre los que se es- 
criba a menudo. 

Discovery nos deja abrir los fi- 
cheros tipo CODE o los programas 
como si se trataran de archivos de 
datos, sin dar error en ningún caso. 


Conclusión. Una unidad 
rápida y compacta 


Durante el tiempo que la hemos 
utilizado esta unidad de disco nos 


Proteja su ordenador y manténgalo 
como nuevo con esta práctica 
funda de teclado transparente 


Servicio 
especial 


lectores 
y amigos 


para nuestros 


950 pro 
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ha dado una impresión muy posi- 
tiva. Al compartir la sintaxis de 
comandos «oficial» de Sinclair tie- 
ne acceso a una gran cantidad de 
sofiware. Esta compatibilidad está 
muy clara en BASIC. En código 
máquina el manual no nos indica 
si también se ha respetado, y se 
echa de menos una lista de los «có- 
digos de enganche» (hook codes) 
del Discovery. Por otro lado, los 
comandos se han ampliado lo sufi- 
ciente como para poder tener acce- 
so a nuevas caracteristicas que de- 
jan la potencia del sistema a nive- 
les difíciles de superar. Su veloci- 
dad de transferencia es buena, tar- 
dando una pantalla en cargar alre- 
dedor de cinco segundos. 

El manual está bien explicado y 
traducido al castellano. y a eso no 
estamos acostumbrados. La uni- 
dad simplifica las conexiones del 


Spectrum al hacerse cargo de la 
alimentación del conjunto e incor- 
porar un port de impresora. En re- 
sumen, sólo el precio (unas 63.000 
pesetas la unidad simple). y la de- 


cisión de elegir un disco de 180K 
existiendo en el mercado unidades 
de hasta 720K, pueden deslucir 
nuestro descubrimiento de este 
otoño. 


BUN CABLE I 


(СОМ LO QUE ME HA COSTADO y 
Solo ME DAN UN CABLE / 
„ТИВА ENANO, UN CABLE I 
ЇМ GABLE // 
МЕ ABURRES, 
GUS 


Complete su colección de 


Todospectrum 


A continuación le resumimos el contenido delos ejemplares 


aparecidos hasta ahora. 


Núm. 1+250 pts. 

Cómo usar el microdrive/Progra- 
mación Basic/Ampliación Basicare/ 
Rutina despertador/Variables del sis- 
tema/Entrada datos mediante másca- 
ras/Protección del software/Sintoni- 
ce su Spectrum/Programas 


Núm. 3-250 pts. 

Novedades sonimag '84/Ampliando el 
Basic/Programas para ordenar pro- 
gramas/Gráficos con el VU-3D/Len- 
guaje Fortn/Archivos en microdrive/ 
Programación de un interface de im- 
presora/Programes. 


Núm. 5 +250 pts 

Floppys para Spectrum/Diseño asis- 
tido por ordenador/64 Caracteres por 
línea/Juego de la vida/Pascal/Así ha- 
cemos las portadas/Control de eva- 
luaciones/Programas. 


(cada tapa es para 6 ejemplares) 


Núm. 2+250 pts. 

Gráficos profesionales/Desplaza- 
miento pixel a pixel/Utilización de 
rutinas/Construcción del interface 
centronics/Programas de utilidad pa- 
ra microdrive/Rutina reset en código 
máquina/Análisis del editor de textos 
Tasword/Interfaces para impresoras/ 
Programas 


Núm. 4+250 pts. 

De profesión: programador/Consola 
para el Spectrum/Comparación códi- 
go máquina-Basic/Análisis programa 
contabilidad /Calendario/Pascal/Pro- 
gramas. 


Núm. 6*250 різ. 

Representación de funciones/Todos 
los caminos conducen a la ROM/Jue- 
gos/Pascal/ Construcción de un lápiz 
óptico/Programas de gestión. El SITI/ 
Logo: tortugas para todos/Interrup- 
ciones del Z-80/Programas. 


Código máquina 
para ampliar elBASIC 


EJEMPLARES DE 


SIN NECESIDAD DE ENCUADERNACION 


Para hacer su pedido, rellene este cupón HOY MISMO 


Todospectrum 


Ruego me 


PECTRUM ... 
Por favor envienme 


у envielo а: 
Bravo Murillo, 377 
Tel. 733 96 62 - 28020 MADRID 


envien los siguientes ejemplares atrasados de TODOS- 
al precio de 250 pts. 
tapas para la encuadernación de mis 


ejemplares de ТОРОЗРЕСТНОМ, al precio de 600 pts. más gastos de envío. 
El importe lo abonaré 

O РОЯ CHEQUE О CONTRA REEMBOLSO О CON М! TARJETA DE 
CREDITO O AMERICAN EXPRESS D VISA D INTERBANK 


Número de mi tarjeta: [TT] 


Fecha de caducidad 


NOMBRE 
DIRECCION 
CIUDAD 

PROVINCIA 


HETT 


Firma 


GREMLINS 


Las aventuras conversacionales con 
gráficos son un tipo de juego que tenía 
problemas para encajar fuera de Gran 
Gretaña; quizá por problemas idiomá- 


ticos, aunque hay quienes dicen que, 


los usuarios ingleses tienen unos gustos 
diferentes a los continentales. Grem- 
lins nos dará una oportunidad de ave- 


Los «animalitos» 
no nos dejarán un 
respiro hasta que 
hayamos acabado 
la plaga. 


con 


riguar si el público español disfruta о 
no con este tipo de juegos. 

El juego tiene todos los ingredientes 
para resultar un éxito: los personajes y 
las situaciones son conocidos, los gráfi- 
cos son de calidad, la aventura tiene las 
dosis de dificultad suficientes para no 
aburrir, у. lo más importante, los tex- 
tos han sido traducidos al castellano. 

Como quienes hayan visto la pelícu- 
la sospecharán, se trata de restablecer 
el orden en un pueblo plagado de 
Gremlins a los que has dado de comer 
después de medianoche, engañado por 
sus trucos. Los retoños de Gizmo ame- 
nazan con invadir la ciudad, si no con- 
sigues acabar con ellos. 

Para evitarlo debemos ir matándo- 
los progresivamente. comenzando por 


Si se comete el 
más ligero error, 
se paga caro. 


nuestra propia casa, y salir а continua- 
ción a la calle para completar el traba- 
јо. El comienzo es ya frenético, bastan- 
do un pequeño error en el primer mo- 
vimiento para ser enviados al otro ba- 
Trio. 

Un buen conocimiento de las técni- 
cas y armas requeridas para matar 
Gremlins nos resultarå util, asi como 
recordar las escenas oportunas del 
film, que nos darån pistas sobre qué 
hacer en determinadas situaciones. 

Como en todos los juegos de aventu- 
ras, las dificultades tipicas con las que 
nos tenemos que enfrentar implican 
pensar råpidamente qué hacer en de- 
terminadas circunstancias, aunque 
más veces de las que sería deseable el 
problema reside en saber cómo expli- 
carle algo al ordenador. La traducción 
del juego al castellano ayuda mucho, 
pero todavía no se puede decir que se 
haya llegado a hacer programas que 
«entiendan» nuestro lenguaje. 

Otra característica original del juego 
es que algunas de las imágenes gráficas 
incluyen movimiento, realzando el 
realismo de las escenas. Asimismo, la 
gran velocidad a la que se realizan los 
cambios de escena impide el aburri- 
miento. Quizá el punto más débil de 


Control: Se le dan las órdenes 
por medio del teclado. 

Jugadores: Uno. 

Gráficos: Excelentes; una de 
las mejores aventuras gráficas. 

Sonido: No tiene. 

Nivel de dificultad: A veces 
resulta difícil encontrar la ma- 
nera de salir de una situación. 

Originalidad: Se trata de una 
aventura gráfico-conversacional 
bastante clásica. Su detalle más 
original es la incorporación de 
movimiento en algunos gráficos. 

Conclusión: La traducción al 
castellano de todo el texto de la 
aventura marca una nueva eta- 
pa en la comercialización de 
juegos de aventuras, que permi- 
te el acceso a éstos de muchos 
usuarios potenciales, impedidos 
hasta ahora por el idioma. 


este juego sea la poca claridad de algu- 
nos mensajes, que hacen dificil encon- 
trar la salida en algunas situaciones. 

Algunos pequeños fallos de traduc- 
ción no llegan a empañar la interesante 
iniciativa de sus autores y distribuido- 
res al traducir el juego. Esperamos que 
otras compañías de software se deci- 
dan a seguir este ejemplo, facilitando 
el acceso de los usuarios a este tipo de 
juegos, tan limitado hasta ahora por 
barreras idiomáticas. Y recuerda: No 
dejes que les dé el sol, no los mojes y 
sobre todo... ¡Nunca juegues después 
de medianoche! 


911 Т5 


Con nuestro Porsche 911 TS. y pa- 
trocinados por Dunlop, vamos a co- 
menzar un duro Rally por caminos di- 
ficiles, plagados de obstáculos. Antes 
debemos invertir nuestro dinero (hasta 
un máximo de 2.000 libras) en la com- 
pra de neumáticos, suspensión, etc. 

Ya con el preparado, salimos en el 
primer tramo cronometrado. El coche 
responde bien, aunque quizá рігагіа 
mejor si le hubiésemos puesto una di- 
rección mejor. Unos buenos amorti- 
guadores disminuyen el adaño cuando 
rozamos un obstáculo... 

La carrera se compone de ocho tra- 
mos cronometrados, existiendo la po- 
sibilidad de recoger equipo (neumáti- 
cos, etc.) durante el recorrido de los 
tramos impares, que son también los 
que comienzan con opción de compra 
de material. Para recoger el equipo 
basta pasar por encima con nuestro co- 
che. Pero hay que estar atentos para no 
chocar frontalmente contra un árbol, о 
meternos en un sacavón 

La pantalla tiene una estructura 
muy similar al Grand National. con un 
pasillo por donde circulamos, y dos la- 
terales muy logrados, donde se nos 
muestran los daños que ha sufrido el 
vehículo, la velocidad, y el tiempo que 
nos falta para finalizar. Cuando acaba- 

_ mos cada tramo. se dan puntos en fun- 


ción del tiempo que nos haya sobrado. 

Los golpes que le demos al coche se 
acumulan, ya que al final de cada tra- 
mo el coche se recupera, pero sólo par- 
cialmente. Como consecuencia de esto 
conviene esquivar los obstáculos cui- 
dadosamente, ya que si los daños son 
excesivos no podremos continuar la 
carrera. 

Como principales virtudes del juego 
podemos citar el scroll, que origina un 
movimiento muy suave de la pantalla 
con un paisaje muy realista en los late- 
rales. También es bueno el movimien- 
to de nuestro coche. 

El principal inconveniente es que 
todo el movimiento del coche se reali- 
za sobre una carretera recta, lo que no 
contribuye en absoluto a la sensación 
de velocidad. y esto sería muy necesa- 
rio en un juego que se supone de ac- 
ción. 


¡Atención! 
Carretera en 
mal estado. 


Control: Teclado, Joystick. 

Jugadores; Uno. 

Gráficos: Buenos, destacando 
la suavidad del scroll. 

Sonido: No es su fuerte, 

Nivel de dificultad: Creciente, 
el comienzo no es excesivamen- 
te difícil. 

Originalidad: Como todos los 
juegos de Elite tiene caracteristi- 
cas fuera de lo normal. Incorpo- 
ra una primera parte en la que 
debemos comprar accesorios 
para nuestro automóvil. 

Conclusión: Dentro del enfo- 
que clásico de carreras automo- 
vilísticas contra el reloj, 911 TS 
aporta la compra inicial de ac- 
cesorios para nuestro vehiculo. 


Ya desde el 
comienzo hay que 
moverse 
rápidamente, si 
no queremos ser 
obstaculizados 
por el otro coche. 


a experiencia es una ayuda 

imprescindible para com- 

prender cualquier fenöme- 

no. Todo lo que nos ocurre 

se codifica en función de 
nuestros conocimientos previos 
del tema. Por esta razón, dos per- 
sonas pueden vivir una misma si- 
tuación e interpretarla de distinta 
forma. 

¿Cómo se relaciona esto con los 
bloques de expectativas de los que 
hablamos en la primera parte de 
este artículo? Vimos que los blo- 
ques eran un buen método para re- 
cordar acontecimientos. En lugar 
de almacenar cada suceso como 
una nueva experiencia, un progra- 
ma puede grabar sólo un puntero 
con la información no contenida 
en el prototipo. La memoria sólo 
necesita registrar las partes de una 


5503 


Еп el número anterior comenzamos este artículo presen- 
tando al ordenador como un fascinante laboratorio para 
experimentar las teorías sobre el pensamiento. Hablamos 
del lenguaje, que es quizá el terreno donde los complejos 


experiencia que se diferencian del 
prototipo. 

Los bloques de expectativas 
contienen la información estándar 
de cada situación, por lo que pue- 
den utilizarse para organizar la 
memoria. Asumen por tanto un 
nuevo papel: además de propor- 
cionar las expectativas que ayudan 
a comprender los acontecimientos. 
desempeñan la función de memo- 
ria. 

Para funcionar como memoria y 
como estructuras de procesamien- 
to tendrán que satisfacer nuevos 
requisitos. El más importante es 


que todo sistema de memoria ha 
de ser dinámico. Nunca será real- 
mente útil si falla al responder a 


procesos mentales se expresan con más claridad. Continua- 
mos con el tema donde lo dejamos: empezando a hablar de 
la memoria, estructura de datos en que se manifiesta lo le- 
jos que estamos de una teoría del pensamiento inteligente. 


las nuevas entradas y no aprende 
de sus experiencias. Si genera ex- 
pectativa. debe contestar a sus po- 
sibles fallos reestructurándose para 
crear mejores predicciones en el 
futuro. Además ha de ser capaz de 
localizar sus conocimientos. 

La misión de la memoria es to- 
mar un suceso determinado y en- 
contrar otros relacionados con él. 
Pero ¿cómo se discrimina entre los 
que guardan relación y los restan- 
tes? ¿Cómo se les puede localizar? 

Estos dos objetivos —recuerdo y 
aprendizaje— guían las teorias so- 
bre la estructura de la memoria. 


Durante una conversación nor- 
mal. determinadas zonas de la me- 
moria se activan para entender las 


nuevas entradas. El que una expe- 
riencia recuerde a otras indica que 
la misma estructura se utiliza para 
procesar una y recordar la otra. 
Examinando el proceso de recuer- 
do exploramos al mismo tiempo la 
estructura de la memoria 

Armados con esta nueva con- 
cepción, volvamos al ejemplo del 
restaurante. Supongamos que al 
recibir la factura Pepe advierte un 
error y protesta. El camarero no 
sólo lo corrige, sino que además, 
para compensarle, le invita. Pepe 
—o cualquier sistema dinámico de 
memoria que intentase entender lo 
que ocurre— registrará en su me- 
moria esta desviación de la rutina 
esperada. Si posteriomente le ocu- 
rre algo parecido mientras compra 
repuestos para su automóvil, re- 
cordará el episodio del restaurante 


Bo 


¡APROVECHA AL MAXIMO TU SPECTRUM! | 


Ahora, а tu alcance, dos obras fundamentales para que podåis sacar todo el partido posible а vuestro ordenador. 


rhaw y 


[PARANINFO] 


ЦЕЖРАМТМЕОТ 


Esta publicación está diseñada para guiar al nuevo Este libro, escrito en estilo ameno y práctico, está 
usuario del ZX Spectrum desde el momento que el dirigido а todos aquellos usuarios que han dejado 
ordenador se conecta hasta conseguir una base sufi- atrás la etapa de los juegos y necesitan adentrarse 
ciente de la programación BASIC. en el fabuloso mundo de р programaciön 
Incluye temas como El temario incluye: 
е Introducción al teclado * Reglas y herramientas del BASIC. 
e Instrumentos útiles para la programación e La técnica de los organigramas 
® Uso de comandos fáciles * Cómo planificar un programa 
* Como construir un programa е El mundo de las rutinas. 
Técnicas de programación. е Variables y cadenas 
Aplicaciones prácticas е Funciones matemáticas usuales 


100 pags. - 750 PTAS 109 pags. - 750 PTAS. 


CUPON DE PEDIDO 
Recorta este cupón debidamente cumplimentado y envielo a INFODIS, 5. A. C/ BRAVO MURILLO, 377-5.* А - 28020 MADRID 


CA ра а a айнек a O 


Si, envienme el(los) libro(s) que a continuación detallo al precio de 750 ptas. libro, más 100 ptas. en concepto de 
gastos de embalaje y envío. 


El importe lo abonare: POR CHEQUE O CONTRAREEMBOLSO O CON TARJETA DE CREDITO (VISA 0) 
(AMERICAN EXPRESS 0) (INTERBANK 0) 


Número de mi tarjeta 


TITULO 


NOMBRE 
CALLE — 
CIUDAD 
PROVINCIA 


OFERTA DE SUSCRIPCION 


REVISTA EXCLUSIVA PARA USUARIOS | 


Te ofrece la posibilidad de suscribirte con unas condiciones 
muy ventajosas para ti: 


1 Recibir puntualmente, en tu domicilio la publicación 
TODOSPECTRUM que durante 12 meses te proporcionará 
lectura, programas, ayuda, entretenimiento, etc. 


2 Consigue un práctico regalo: 


Una obra fundamental en la biblioteca 
de los aficionados al Spectrum: 


Esta publicación, escrita con estilo 
ameno y práctico, te ayudará a sacar 
todo el partido posible a tu máquina. 


3 La opción de ser protagonista. Tú puedes tener una 
participación directa con tus comentarios, programas, 
sugerencias, etc. 


4 Obtener premios importantes con tus programas, y temas 
de interés. 


EN DEFINITIVA, TODO SON VENTAJAS 


No dejes pasar esta oportunidad, suscríbete 
а “TODOSPECTRUM”, cumplimentando hoy mismo el cupón 
de respuesta adjunto. 


BRAVO MURILLO, 377 - 5.2 A 
TELEFONO: 733 74 13/47/63/97 28020 MADRID 


y esperarå recibir una compensa- 
ción. ¿Cómo puede recordarnos 
una experiencia sucedida en una 
tienda de repuestos otra ocurrida 
en un restaurante? Debe existir 
una estructura de memoria que in- 
terviene en ambos procesos. 

Indudablemente, no todas las es- 
pectativas son iguales en estos dos 
casos, pero algunas sí lo son. Los 
bloques están enlazados, es decir, 
existen sub-bloques de expectati- 
vas. En la terminología de caracte- 
rística de la inteligencia artifical 
los bloques se Патап МОР? (siglas 
de memory organization packages) 
y los sub-bloques escenas. Las es- 
cenas son compartidas, ya que 
aparecen en muchos MOPs. 

En los programas y teorías sobre 
la inteligencia artificial se emplean 
más clases de memoria y estructu- 
ras de procesamiento de las que 
podríamos describir aquí. No obs- 
tante, los requisitos básicos para 
una organización útil de la memo- 
ria deberian haber quedado ya su- 
ficientemente claros. 

Tomar en un momento determi- 
nado la porción necesaria de cono- 
cimientos entre los almacenados 
en nuestra enorme y cambiante 
memoria, es crucial para la com- 
prensión del lenguaje. También lo 
es para mostrar el llamado sentido 
común. Aprender de las experien- 
cias y aplicar los conocimientos en 
las situaciones pertinentes es el 
paso más importante hacia la inte- 
ligencia. 


La inteligencia 
artificial 


Se ha abusado tanto del término 
«inteligencia artificial» que es con- 
veniente aclarar su significado. Los 
programas demostrativos de teo- 
rías sobre el conocimiento logran 
en ocasiones proezas impresionan- 
tes. Pero también lo consiguen 
otros programas que no pretenden 
ser modelos del conocimiento. La 
percepción pública de la inteligen- 
cia artificial se enfoca sobre todo 


en la expresión «artificial». Los or- 
denadores hacen trabajos que nun- 
ca imaginamos que podría hacer 
una máquina. Su potencia y utili- 
dad aumenta de día en día, pero 
esto no es inteligencia artificial. 

El verdadero sentido de la inteli- 
gencia artificial se centra realmen- 
te en la «inteligencia», algo que to- 
davía es confuso y evasivo. Mu- 
chos programas «inteligentes» son 
prácticamente inútiles, mientras 
que otros muchos de gran utilidad 
y «listos» no son realmente inteli- 
gencia artificial. Si comprendemos 


Tim Hartnell 
Ed. Anava Multimedia 
267 pågs.. 1.300 ptas. 


Quizá impresionados por lo os- 
tentoso del término, la mayoria de 
los usuarios de ordenadores do- 
mésticos piensan que la Inteligen- 
cia Artificial queda lejos de sus po- 
sibilidades. Sin embargo. Tim 
Hartnell consigue en este libro de- 
mostrar todo lo contrario. Y lo que 
resulta más atractivo es que lo lo- 
gra de un modo práctico, соп pro- 
gramas «inteligentes» comentados 
detenidamente. 

Los listados utilizan un BASIC 
estandarizado que se puede ejecu- 


esta diferencia nos ahorraremos 
numerosas confusiones. 

Los sistemas expertos son un 
buen ejemplo. No razonan de la 
forma en que lo haría un experto 
humano. Aunque son programas 
que realizan trabajos útiles e im- 
portantes, en modo alguno sirven 
de modelo para las teorías sobre la 
inteligencia. Un experto humano 
no se limita a seguir una serie de 
reglas: tiene la experiencia sufi- 
ciente para saber cuándo se enfren- 
ta a un caso excepcional. Las teo- 
rías sobre la conducta experta de- 
ben describir el procedimiento que 
permite a un experto saber cuándo 
algo no se ajusta a las reglas y 
cómo obrar en esas circunstancia. 


Aprender de la experiencia 
es el paso más importante 
hacia la inteligencia 


Inteligencia artificial: 


La inteligencia artificial es una 
ciencia mucho mås båsica de lo 
que generalmente se piensa. Mu- 
chas de las mejores ideas sobre el 
tema requieren un enorme esfuer- 
zo para convertirse en aplicaciones 
útiles. Y en cierto modo, a partir 
de ese instante dejan de ser inteli- 
gencia artificial. 

¿Tiene aplicaciones la inteligen- 
cia artificial? Sin duda. Avanzando 
en la investigación sobre el pensa- 


El resultado de esta 
experimentación será una 
nueva forma de entendernos 
a nosotros mismos. 


miento se puede ayudar a la gente 
a pensar mejor. Probablemente la 
aplicación más importante no sea 


la posibilidad de averiguar cómo 
piensan los seres humanos. 

La inteligencia artificial forma 
parte del gran esfuerzo por com- 
prender el pensamiento. Las inves- 
tigaciones deben centrarse en la in- 
teligencia, no en la máquina. 

Los programas son sólo experi- 
mentos. El resultado será una пие- 
va forma de entendernos a noso- 
tros mismos. Y esto es mucho más 
valioso que cualquier programa. 


ningún programa inteligente. sino 


conceptos y programas 


tar en la mavoría de los microor- 
denadores: Commodore 64, BBC. 
Vic 20, Dragon 32. Oric, TI 99/44, 
TRS 80. Apple П. IBM РС v mu- 
chos otros. También, у digámoslo 
antes de que a alguien le dé un so- 
foco, еп el Spectrum у Spectrum +. 
El apendice 4 contiene los listados 
con las modificaciones que necesi- 
ta el Spectrum, que se reducen casi 
exclusivamente al tratamiento de 
cadenas. 

El libro se divide en cuatro sec- 
ciones dedicadas a distintas face- 
tas del comportamiento inteligen- 
te: el pensamiento. la investiga- 
ción. el habla y la avuda. El len- 
guaje utilizado es sencillo y ame- 


no, v la traducción, como va es ha- 
bitual en esta editorial, å bien 
realizada. Las primeras påginas 
de cada capítulo abordan por lo 
general aspectos teóricos. algunos 
de tanta importancia como los år- 
holes de búsqueda, la comprensión 
del lenguaje natural v los sistemas 
expertos. Después se pasa al trata- 
miento práctico del tema, es decir, 
los programas v comentarios. 

La calidad de los programas es 
más notable. Merece la pena des- 
tacar entre otros Tictac, juego de 
tres en raya que aprende a medida 
que juega; Bloquelandia, una sor- 
prendente versión del famoso 
Shrdlu que se comunica con noso- 


tros en castellano, v Doctor. ver- 
sión en BASIC del no menos fa- 
moso Eliza. programa con el cual 
el ordenador se convierte en algo 
parecido a un psquiatra de la es- 
cuela rogeriana. 

El libro termina con cuatro úti- 
les apéndices. El primero da una 
serie de conseios para mejorar las 
técnicas de programación. El se- 
gundo se dedica a la información 
bibliográfica. El tercero es un pe- 
queño vocabulario de términos in- 
formáticos v de inteligencia artifi- 
cial. Y el cuarto v ultimo contiene 
las versiones para Spectrum de to- 
dos los programas que aparecen en 
el texto. 


n este primer articulo dedi- 
Е садо а este programa me 

centraré únicamente en da- 

ros un método para cargarlo 

y en contaros detallada- 
mente cómo funciona cada uno de 
estos comandos, cuál es su sintaxis, 
y qué posibilidades ofrece, dejando 
para números posteriores la apli- 
cación de cómo funciona interna- 
mente, a nivel de lenguaje máqui- 
na. Esto nos dará pie a comprender 
un poco mejor el funcionamiento 
interno del Spectrum. 

Antes de continuar, una adver- 
tencia. El programa tiene algunos 
problemas si lo queremos utilizar 
estando conectado el Interface 1, 
principalmente que se destruye 
cuando se comete algún error о in- 
tentamos usar el interface. De to- 
das formas daremos unas pequeñas 
modificaciones que reducen estos 
problemas al mínimo, el programa 
únicamente se desconectará del 
resto del sistema cuando se pro- 
duzca algún error del interface y en 
este caso será necesario volverlo a 
lanzar con una instrucción USR. 


Cómo cargarlo 


El proceso para cargar el progra- 
ma es bastante sencillo, aunque un 
poco pesado. Lo primero que hay 
que hacer es teclear el programa 
del listado 1. Es «un poco» largo, 
pero no hay otra solución. El códi- 


Cuando una persona que 


ya sabe programar se encuentra por 

primera vez con un Spectrum, descubre que su 

BASIC es bastante potente, pero echa en falta algunas 
instrucciones muy populares en otros ordenadores. Manuel Arana nos presenta un listado 
que, una vez tecleado, permitirá a los usuarios de Spectrum 48K disfrutar de siete nuevos 
comandos directamente sobre el teclado. Con ellos esperamos contribuir a solucionaros 


go máquina se ha incluido en for- 
ma de líneas DATA y se realizan 
controles de suma en cada línea 
para detectar los errores. Una vez 
tecleado todo el programa haz 
RUN. En la pantalla verás qué lí- 
nea de datos se está cargando en 
ese momento, y te avisará en el 
caso de que exista algún error indi- 
cándote en qué línea está. Corrige- 
lo y lanza otra vez el programa. 
Cuando ya no quede ningún error 
se detendrá después de «pokear» la 
última línea en el STOP de la línea 
110. Ahora todo el programa está 
ya en la memoria y puedes hacer 
NEW. (No te preocupes, la situa- 
ción está bajo control, pero si no te 
fías o piensas que se puede produ- 
cir algún accidente guarda primero 
este programa en una cinta). Por 
último teclea el listado 2, que es un 


ME APASIONA EL 


muchos problemas. 


pequeño cargador, haz GOTO 100 
y ya puedes grabar la copia defini- 
tiva del programa. Si piensas utili- 
zar el interface I utiliza el listado 3 
en lugar del 2, y cuando se produz- 
ca un error del interface podrás 
volver a conectar con el programa 
mediante la instrucción RANDO- 
MIZE USR 61260. 


Mode 


Cuando cargues el programa de 
la cinta te encontrarás con la sor- 
presa de que todo lo que tecleas 
aparece con unas letras mucho 
más estrechas de lo normal, a ra- 
zön de 64 caracteres por línea. Este 
nuevo modo de presentación se 
puede controlar con la nueva ins- 
trucción MODE. La sintaxis de 
este comando es muy simple: 
MODE 0 coloca el Spectrum en el 
modo normal de presentación y 
MODE 1 selecciona el modo de 64 
caracteres. 

Trabajando en el modo de 64 
columnas se pueden utilizar todas 
las posibilidades de la instrucción 
PRINT. Podemos hacer por ejem- 
plo: PRINT АТ 5,40;"*",TAB 
50;“*”. La única diferencia funda- 
mental con el modo normal de 
presentación se refiere al uso de 
comas como separadores. En 
MODE 1 la pantalla está dividida 
en cuatro campos de 16 caracteres, 
y la utilización de la coma lo que 
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hace es colocar el cursor al princi- 
pio del siguiente campo. De esta 
forma si escribimos una serie de 
datos separados por comas apare- 
cen en la pantalla ordenados en 
cuatro columnas. También se pue- 
den usar sin problemas los caracte- 
res de control 8 y 9, que desplazan 
el cursor una posición hacia la iz- 
quierda y derecha respectivamen- 
te, 


AUTO 


Este comando se utiliza cuando 
se está tecleando un programa y su 
función es la de ir colocando los 
números de línea. Su sintaxis es: 
AUTO x,y donde x es el número 
de línea por el que debe empezar a 
numerar e y es el incremento entre 
dos números de línea consecuti- 
vos. Por ejemplo si hacemos 


El Spectrum provisto de 
«Arana Soft» dispone de dos 
modos de presentación: 32 ó 
64 caracteres. 


AUTO 100,10 inmediatamente 
aparecerá en la parte inferior de la 
pantalla el número 100 seguido del 
cursor preparado para que empe- 
cemos a teclear la línea. Cuando 
pulsemos ENTER la línea será in- 
sertada en el programa y aparecerá 
el número 110 para que tecleemos 
la línea siguiente. Cuando termi- 
nemos, la forma de abandonar el 
modo AUTO es borrar el número 
de línea y pulsar ENTER. 


RENUM 


Después de escribir y corregir un 
programa BASIC, cuando por fin 
funciona, normalmente nos en- 
contramos con que en los números 
de línea reina la anarquía como re- 
sultado de haber borrado e inserta- 
do gran número de líneas. El co- 
mando RENUM hará que vuelva 
el orden. RENUM n,m renumera 
todo el programa comenzando por 
la línea n y con incrementos de m 
en m. También se encarga de cam- 
biar los saltos que hubiera en el 
programa para que éste siga fun- 
cionando. Veamos un ejemplo. El 
siguiente programa calcula el fac- 
torial de un número de manera re- 
cursiva (procedimiento no muy re- 
comendable en BASIC). 


15 INPUT a:GO SUB 1000: 
PRINT af: STOP 

1000 IF а<=1 
fl:RETURN 

1005 LET а=а-1 

1007 GO SUB 1000 

1020 LET a=a+1:LET f=f*a:RE- 
TURN 

9000 SAVE “fac”LINE 15 


Si queremos renumerarlo basta- 
rå con hacer RENUM 10,10 y 


10 INPUT a:GO 
20:PRINT a,f:STOP 
20 IF а<= 
fsl:RETURN 

30 LET а=а-1 

40 GO SUB 20 

50 LET a=a+1:LET fffa:RE- 
TURN 

60 SAVE “fac”LINE 10 


Quizå los amantes de la progra- 
maciön estructurada prefieran re- 
numerar Unicamente la subrutina. 
Para ello basta con hacer RENUM 
1000,10,1000,2000 donde los dos 
primeros parámetros tienen el 
mismo significado que antes, el 
tercero indica la primera línea que 
debe ser renumerada, y el último 
la última línea que debe renume- 
rarse. El programa quedaría 


THEN LET 


SUB 
THEN LET 


15 INPUT a:GO SUB 
1000:PRINT a,f:STOP 
1000 IF а<= THEN LET 
ЕІКЕТОКМ 


1010 LET a=a-1 

1020 GO SUB 1000 

1030 LET a=a+1:LET f=fta:RE- 
TURN 

9000 SAVE *fac LINE 15 


PERO GUS... 
UNA TECLA 


EEE 


1 RENUMERATE, REPITO! 
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Los comandos del BASIC que 
pueden ser modificados por una 
instrucción RENUM son todos los 
que pueden o deben llevar como 
parámetro un número de línea, 
esto es: GO TO, GO SUB, SAVE, 
LIST, LLIST, RESTORE, RUN y 
ON. 


ELSE 


La instrucción ELSE viene a 
completar la conocida construc- 
ción IF condición THEN coman- 
dos, que ahora puede tomar la for- 
ma IF condición THEN comandos 
ELSE otros comandos, que podría- 
mos traducir como: si se cumple 
ésto haz ésto, si no haz ésto otro. 
De esta forma ELSE marca el pun- 
to donde debe continuar la ejecu- 
ción en el caso de que no se cum- 
pla la condición. Así podemos es- 
cribir la subrutina del ejemplo an- 
terior en una sola línea: 


1000 IF а<= THEN LET 
ffl:RETURN ELSE LET aza- 
1:GOSUB 1000:LET a=a+l:LET 
f=ffa:RETURN 

Cuando en una misma linea 


existan varias sentencias IF y va- 
rios ELSE puede surgir la duda de 


cuål de los IF se refiere а сада 
ELSE. La respuesta es que cada 
ELSE se refiere al IF mås сегсапо а 
no ser que existan en medio otras 
instrucciones ELSE. De esta ma- 
nera las construcciones IF-THEN- 


ELSE quedan anidadas unas den- 
tro de otras. 

El límite teórico de este tipo de 
estructuras anidadas es de 255, 
pero este límite es inalcanzable 
por la limitación de 127 sentencias 
en cada línea. 

Por la forma en que está escrita 
la instrucción ELSE es posible in- 
troducirla en una línea en la que 
no aparezca el IF, pero en este caso 
no tiene ninguna utilidad ya que se 
comporta como si fuera una sen- 
tencia REM. 


ON 


Se trata de una nueva forma de 
saltos condicionados. La forma de 
utilizarlo es: 


ON (expresión) GO TO líneal,li- 
пеа2.... 


EI salto se producirå dependien- 
do del valor de la expresiön, si vale 
uno saltarå a la linea especificada 


г 


— 
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por el primer paråmetro detrås del 
GOTO, si vale 2 al segundo y así 
sucesivamente. En el caso de que 
el valor de la expresión sea mayor 
que la cantidad de líneas indicadas 
después del GOTO el programa 
continuará por la siguiente linea. 
Este tipo de saltos también puede 
ser realizado con instrucciones del 
tipo GOTO calculado, pero este 
sistema presenta la ventaja de que 
es más comprensible y puede ser 
renumerado sin problemas. La ins- 
trucción ON se puede utilizar tan- 
tocon GOTO como con GOSUB. 
Cuando tengas que teclear el 
GOTO o el GOSUB de una línea 
ON te encontrarás con el pequeño 
problema de que el cursor no está 
en K. Para solucionar esto las dos 
palabras han sido reasignadas a las 
mismas teclas pero en modo exten- 
dido y pulsando a la vez CAPS 
SHIFT. Sin embargo los que ten- 
gan el Interface 1 no tendrán más 
remedio que hacer un poco de 
ejercicio con los dedos y poner dos 
puntos, GOTO o GOSUB y retro- 
ceder para borrar los dos puntos. 


PARA ERRORES. 


elf 


SI LA PATA HEMOS METIDO 
CON SACARLA HEMOS CUMPLIDO. 


SWAP 


Este comando sirve para realizar 
una transferencia cruzada sin ne- 
cesidad de utilizar una variable in- 
termedia. Para utilizarlo basta con 


m 
MIRA ENANO, UNA FUNCION 


hacer SWAP a,b y el resultado es 
el equivalente a hacer LET c=a- 
:LET a=b:LET b=c pero con la 
ventaja de que no utiliza la varia- 
ble intermedia c y que es algo más 
rápido. Se puede utilizar tanto con 
variables numéricas como con al- 
fanuméricas. 


ONERR 


Esta instrucción le da al Spec- 
trum una capacidad de tratamien- 
to de errores de la que carecia to- 


Con el comando ON ERR se 
puede evitar que el programa 
pare cada vez que encuentre 
un error. 


talmente. La forma de utilizarlo es 
muy sencilla, basta con poner en el 
programa el comando ON ERR 
seguido de los códigos de error a 


que nos queramos referir separa- 
dos por comas. Esto marcarå el 
punto del programa donde debe 
continuar la ejecuciön en el caso 
de que se produzca alguno de los 
errores indicados. No hay limita- 
ción en cuanto al número de erro- 
res en una instrucción ON ERR, ni 
en el número de veces que aparez- 
ca la sentencia ON ERR en el pro- 
grama. El código del error produ- 
cido queda almacenado en una va- 
riable llamada “err”. La lista de los 
códigos de error la puedes encon- 
trar en el libro de instrucciones del 
Spectrum en la página 189 y si- 
guientes. La instrucción CONTI- 
NUE puede ser utilizada para que 
la ejecución vuelva al punto en 
que se produjo el error, de esta for- 
ma podrás hacer: ON ERR 1 
CONTINUE, con lo que consegui- 
rås que el programa no se pare por- 
que alguien intente hacer BREAK. 

Hay que hacer una advertencia 
en cuanto al uso simultåneo del 
error d (se produce al contestar no 
а la pregunta scroll?) y el error 1 
(BREAK). Si ponemos ON ERR 
4,1 CONTINUE y cuando se pro- 
duce el mensaje scroll? responde- 
mos pulsando simultáneamente 
CAPS SHIFT y SPACE se produ- 


La instrucción ELSE mejora 
"la estructuración de nuestros 
programas. 


cirá un error d que será tratado 
como tal, pero en el nomento en 
que comienza a ejecutarse la ins- 
trucción CONTINUE se produce 
un error | (BREAK) y ese será el 
punto donde saltará el programa 
después de CONTINUE, quedan- 
do la máquina «colgada» en este 
bucle. 


Para terminar incluyo un peque- 
ño programa que muestra cómo se 
puede utilizar la instrucción ON 
ERR para solucionar los proble- 


UNA, FUNCIÓN 


TEMIBLE. 
LEH? 


ciön en ese punto (error А) о por 
intentar dividir por cero (error 6). 
En cualquiera de estos dos casos 
ignoramos el punto. 


TABLA 1 
Sintaxis Ассезо teclado Con Interface 1 

MODE n CS + Y CS +6 
SWAP у1,у2 CS+U С5+5 
ОМ п GOTO 11,12,... CS+T С5+4 
RENUM I L,n 1,12,136 CS+R С$+3 
AUTO I Lin CS+E С5 +2 
ON ERR el,e2,... CS+W CS +1 
ELSE С5+0 С5 +0 
п - expresión numérica 


11,12,13 - número de línea o expresión numérica 


vI,v2 
el,e2 


- nombres de variables numéricas o alfanuméricas 
- códigos de error (una cifra o una letra) 


mas que se presentan al represen- 
tar gráficamente una función. Se 
produce el error B cuando un pun- 
to queda fuera de los límites en 
cuyo caso optamos por ponerlo en 
el borde de la pantalla. También se 
puede producir un error matemá- 
tico por no estar definida la fun- 


Para los que todavía no lo hayan 
descubierto la tabla I es un resu- 
men de la sintaxis de cada coman- 
do e indica la forma de acceso a las 
palabras clave. Recuerda que todas 
ellas se consiguen en modo exten- 
dido. 

Manuel Arana 
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LABERINTO EN 
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LISTADO I 


10 CLEAR 40158: LET n=60159: R 
ESTORE 

20 PRINT АТ 5,5;"Cargando line 
KOG 
30 FOR i=1000 TO 2600 STEP 10 


40 PRINT АТ 5,2031 
50 READ a$,a: LET 


60 FOR ;=1 TO LEN as-1 STEP 2 

70 LET вж (CODE а%(;)-48-29% 
tasty) +19") JECDDE at (j+1)-48-39% 
Сав (3+1) оне" 


ВО POKE п,4: LET пеп+1: LET s= 
std: NEXT j 

90 IF s<da THEN FRINT AT 5,5 
"Error en la linea ";i: ВЕЕР .5, 
-10: STOF 

100 NEXT å 

110 BEEF 1,-10: STOP 
1000 DATA "01е5+5е5227852522785 


c7cb520074d 74400 8d5cd(Pebe34d00c 
18et2c 92100", 5675 

1010 DATA "5ссь7=2007722757620072 
«++ 7ат1 пабсвагбвесатвозаотт ботев 
ecalonzeb2t", 2807 

1020 DATA "O45cbeca1003ch7e200%e 
ЬсҺ?есв547722160522ша095с7727444 
+d5a01e5", 3199 

1030 DATA "слеберезовол?ьҒетадав 
åebOdfa4+072803cå4+c 07 18b0104280 
42105024578", 3794 

1040 DATA "Ветесвототабевест4а0: 
J7edcdaScla7becedbt+asaaabaddedt7 
+iBtb7c1c1d",9185 

1056 DATA "dh1edeed7feTodBOd+a? 
чотесазотоаваопсвевсайзответвата 
толе тате 
1060 DATA "безе 


зсв1ес=оодоооо. 


07920004041 
огьегоосоон, JET 

1080 DATA "204000000000000070404 
049402000402720007040000000507 
стототобобо", 1008 

1080 DATA 2020702920000000000. 


00066504 
1190 DATA 


000000 


1 0702N4040000070508 


hr 


080G0700000206070202070000020501 
2040700 1340 

1110 DATA "é01060101060000010705 

0507 0100000704080101050000030408 
08050200005", 1488 

1120 рата "7019202 

06200700000" 

1170 пат 000107 
5 0000402 


тогпооговооововоа! 
1796050600040504, 


2128 


2000 = 
0000704040404070000070407 


5000507070705050000070505 
os 9600", 2057 
1180 DATA 
060404) 


3505050 


7502000000505 


079100070509 


96080500000" 
1190 DATA 


2000 
"3040201 01060000070202 
95 


020202000005050508050700000505 
05050200000" 


1488 


92040700000" 


1210 DATA "704040404070000000406 
02030100000701610101070000020702 
02029200000" , 1296 

1220 DATA "00000N000000+00020504 
0404: 010705070000040405 
05050400000" , 1856 

1230 рата "003040404070000010107 


05 ос 
04040400000 
1240 DATA 
05 


7060405000 
1296 


01010502000", 1312 
1250 DATA "405060605050000040404 
040403000 1000605 
05050500000" , 1776 
1260 DATA "002050505020000000605 


05060404000003050503010100000304 
04040400000", 1576 

1270 DATA "003040201060000020707 
92020100000005050505070000000505 
05050200000", 1296_ 

1280 DATA "005070707020000000505 
0205050000 310600000701 
02040700000" 
1290 DATA "302040202030000020202 
0202020000060201020206 50200 
00000000060", 1088 

1300 DATA "80b080b08090&0+090909 
0909090403030303000000000c0c060c 


2496 
1320 DATA "$0$0+0303030300000000 
осос -тозозозосососососососос 


осососоеоғо",4416 

1330 DATA "#0#0+0с0с0с0с00000000 
$54040707070304 04040406 ОС OC OE 
OFOFOFOFOfO" 556 
1740 DATA "4940404 040+0401ееае44 
7edSeed7bIdSc+ 10 I79f0afI0FBEOFdT 
&1102cd+041", 5626 

1350 DATA "cabOlATafB+0A728193et 
+5901157а+1+02485414019567420082 
241404444сч", 4309 

1360 DATA "Iblateddcdo1tecd7T3c 
авэ+а#асБ007е2017#0с702578777а5 
Фпеснатит ва", 3754 

1370 DATA “төоо#+1ваатазез. 
er A75+A7Bh 10 2494 OdHHend?RSdF черт 
0465457 Icd", 4478 

1580 DATA "ведйсада# 1Ле1949964++ 
977524450142#4360044+ а360401е57. 
2821226056", 4204 

1390 DATA "elcdS2fSTaZaScic28zós 
же 25с1е19с42141еһезер2816сЭс 
dé74+4cd9049", 3200 

1300 DATA “сісазсФдеһезеһсдевҒ1е 
bedeb70eac175tdcbOlaetdch304ec4d 
©08497е003с" 5426 
1410 DATA "552100004974174974262 
20656210100 савотевасот7аес 
gbeodeddafı" 
1420 DATA 
defi5e 
в15сада 
1430 DATA “ейдьазвсс1р1асетаа?ғ 
чдедйбаоосатвтасав?то+атвоблас 48. 
åf Of dTalatt", 3827 

1440 рата "фасвот9ествтефвноезво 


ТЕРРИ 


508 
debOdeet 1474 e0a 18020 
37731191 1тсафаосавт 
3531 


046101001 1705621445 


оз 0SKdbBeSTe 0010000 


ИЗ епабсавОте тен 022505 
ceditlegi7h", 2574 

1480 DATA "fe3tO0Obatibicertifel 
204 77elScdB&+ocd2Bidedt+ Das UIS 
d5cdi3e0190", 4107 

1470 DATA "Л2435с21есе+еЗ+аз 

+ 7744845525722400000е004Е! 
аатаевс2а54", 3125 


1480 DATA “Зсеһізағдезтаа1зст?е 
9522560636 36е192006с4681?с4е8195 
17950002878", 7913 

1490 DATA "c5070307037beASHSISEN 


ЗейбЗ1ве122525сс1651122аһ15с?Ь2Һе 
dhB2a495ceb", 2707 

1500 DATA "c17O2b712b0732072f1035 
Вее7ебетагв1в2:7еевс 027 
943742562346" , 3629 

1510 DATA "2746e509444de11600c5c 


9728 1e 19080691 8de77545c0e0015cBe 
46744662004", 3569 

1520 DATA “а?сЭ27у?есфььтво>тазея 
есттооіовбғетса81аҒесь28164619201 
сҺ412017с0",224% 

1930 DATA “атғаабсазоғевітазазст 
blåescbå| 285 74804206 di 5370 921000 
0227dSctdcb", 7887 

1540 DATA "T0Bacddat|Teter 401166 
848080618с8440е2а615с11с# се с+0 
Jet de 40115", 5549 

1550 DATA "ZaSi9cifcdfca77123722 
TI 1OPF IcJa7Oded7IT4Sc+dla0210cdb 
7+1c3a017+d", 3891 

1560 DATA "cbOlcadSebtd 
bSccb9ófdcbI76e2802cbdé: 
d5220053e34", 3998 

1570 DATA "cdeff2cdbbfZeb7ecdbél 
823 fe0d2806ebed37+218e0d1c9cd882 
стҒатасіз4е",4875 

1580 DATA "2028+9+е2с28+5+е1ас55 
e19af3210fdedad0dfdcbo2Gefdcboza 
e2aBaSce52s", 4046 

1590 DATA "195се=219#+2е5е473545 
c2aB25ce537cd9511ebcdfef lebcdbåt 
2гаВабсетев", 5002 

1600 DATA "с949093а855с925811200 
67549965010095е209564е9+с9118=95 
€20d7c37c11", 3584 

1610 DATA "1600fdSefe21901acdb50 
3fd3600+ fed5b8a5c1cc37e112a5b5ca 
7edS2c03a41", 3727 

1620 DATA "Sccb072804c6431821213 
bSccb9e lblal3fe2c2802fe19384b280 
åcb5&280bcb", 2620 

1630 DATA "de3cfdcb305e28023e43d 
5с4е#++291с94921515с55955504с4са+ 
celtd7457d9", 4764 

1640 DATA "с9сйь7+ 1сйбейастаавте 
dcboZ5ec4abt2a7fdcbOidecBIa0Bict 
асьо1 ае#5+9", 5098 

1650 DATA "<6026ес40143414е18104 
7+e103030$e06300a47e80144781+c61 
2181+200921", 2956 я 
1660 DATA "вабстейВае77 1ВОе+ #0еа| 
8d60021415cbe7720023600+f4ch02deb 
4949719511", 3563 

1670 DATA "63+318063a005c11094+32 
2445252573. 7сбЗата5с е52146+ 
4e5ed73305c", 3112 

1680 DATA "cdd415+51600+dSeft21c 
Всосаь50241217442е5Ғеоасвзеғеоь2 
83d+e082814", 3888 

1690 DATA “+е182816+4е0928214е0сс 
24с0+с904+4ебсЗе519с004+4с711105 
e7acd810+7e", 3576 


3096215 
5#5са7е 


1700 DATA "O8cd810f3e18c3810f2a5 
b8c7efeddcB545d23cd32+4c31110fde 
b376ec02a49",3467 
1710 DATA "5сс96е19е6са951621425 
ccdici9cdfOf1I3e00c30116fdch376ec 
20110214950 ",3496 
1720 DATA "cd0f1918e9ZaS95c37cd9 
511805219230 1d8c5444d626b231ac03 
2f4e6t8+e10",1796 
1730 DATA "200923 1adél7ce0020012 
3a7ed42098b38e3c9fe3ac07ete08200 
a237efe1820",3216 


1740 DATA "i 18012b1ac9fdcb306 
6са2610+43600441600445=4е21901ае 
4650537745", 3529 

1750 DATA "2a5dSc7ecdócfádocd740 


о1867 его свЕе Вет? 00ПаБоБс 262. 
25d5ccd67$4", 1895 
1760 DATA "c3O31adfb9c28a1c18def 
dcboibecd75t4af 32475c30327A5c 180 
25967+4с9в+",4075 
1770 DATA "16fd340dtaBalccd5++40 
600+е04са7545+е3228е62154+5е54+2 
9674 4794есе", 4507 
1780 DATA '"3011d6183804fe083804c 
J8alc7e21f1fS180FZ21CCFSAfcddc163 
8f17921481a",3287 
1790 DATA "аёсё4+094е0918032а745 
с7е2122745с01е744с544ғе201282444 
200ddfcd" , 3627 
1800 DATA "delcbteiccbėfSebc316l 
ca72Bf4fe0520030518eefe022008c 1c 
#561ссЧр6+5", 4197 
1810 DATA "с94е07с2631644с6017е# 
асвогвес4да0ав 1 За745сйет 55442216 
dbófSciadic", 4501 
1820 DATA "cd541fd27bibfdcbOa7e2 
0712a425ccb7c281421 fett 2245502ab 
15c2bed5b59", 3432 
1830 DATA "Sclb3a445c1833cdbel93 
2445c2819a72043477e26c078280tcf 
4612930258", 5240 
1840 DATA "2а555с3есоа6сОа++е01с 
€0056275eed53455c235e2356eb19232 
2555ceb225d", 5281 
1850 DATA "Sc571e00+d360aft15+d7 
20dca?af414cd72f 12808cf 16cd3025c 
Ocicidffe0d",3997 
1860 DATA "ZGbafeJaca7afa79a728+ 
Ycf0b+70B+bO9+d0aea0b+aOceoodebo 
ef 50fee10e9",4457 
1870 DATA "11f012e313e414fc15e01 
&e117d818ce1900616d575a6062646a1 
21416181ale",2930 
1880 DATA "2027292b2d2+313336383 
33003654 40000 303704 4057af 506cb0 
58df60035fc ", 2808 
1890 DATA “045906сс0605+2460506+ 
70519+70544+80567+805се+80596+80 
90528480507", 3308 
1900 DATA "+70563+80905bd+805e0+ 
8080040$ 90805864 a05bc+9053a+a05c 
44906006249", 3803 
1910 DATA "0581+900сБ+ссав71е010 
000cd451e1803cd99 1e78b12004ed4bb 
25cc5ed5b4b" , 3411 
1920 DATA "5с2а595с20с0е519с000# 
3c3cólecicd3025280aef0238ebcde?3 
4daa3tėcd5f", 4170 
1930 DATA "+4с19+4+946080801643 
4Ғ4Ғе1820050428114еҒа20010с04с4с 
cf6cd740030", 3695 
1940 DATA "eBc37b+5+d700dcdé7+4c 
39df 47ecdeIfdcdbé1822303c+e3acat 
есьсВғе0а37",524 
1950 DATA "cB231Be9ie22c0237ete2 
28+е0420+7+137с9444ес9200ае7сав 


Ziccøbéf5c3", 4809 - 

1960 DATA "16ldcdbéf5c3131d3e031 
8023e02c03025C401 16cd4dodcddt 1+с 
Чьв#5сэсазо", 34 
1970 DATA "2528083е01с401 1654054 
34d360201cd55$7cdbåfSedaba35cTab 
båcbB38030e", 3360 

1980 DATA "2147ed43885c3e1?90328 
с5с49с60286е94904е503+3с94е2028+ 
bfez82008e7", 5794 

1990 DATA "cddflfdffe29c2Balce7c 
346 Bfeca201le7cdiflcfdcba7fefda 
50176с2Ва1с", 4781 - 

2000 DATA "180dcd8d2cd243f8cd1f1 
cfdcb37becd3025ca46f8cdbf 1621715 
ccbbécbee01", 4210 
2010 DATA "0100cb7e. 
020020е036677+75604790: 
21225772256", 2318 
2020 DATA "Scfdeb37 2а545се 
Б2аЗа5сөе521се47е544сҺ20652804в47 
3345с2а615с", 3786 

2030 DATA "сй87 (1+916004+с871+5+ 
dcboibecdb9211803cd7If If d3022006 
84621200асй", 4214 

2040 DATA "4в+2ей4ов25ссаазоа217 
1ЗссБаесЬ7есьье201се1е122245се12 
254ЗсҒасв01“,4225 

2050 DATA "fecdb9217aSf5c+136260 
0225d5c18172a635ced5b615c37ed524 
ааасаы22аса", 3416 

2060 DATA "ff2a1803cdfclfcddez0c 
a55+7c9cdb228c2Balccd30252008cbb 
1cd9629cdb6",4138 

2070 DATA "+5c3152c3e0318023e02f 
d360200c43025c401 16dfcd70203814d 
Fre3b2804fe", 2980 

2080 DATA "2c2006e7c4821c1808cde 
ble 1803cddelccdbét5c32518d+cd302 
5c237lecdfb", 3789 

2090 DATA "244=2сс456+5е718+544+ 
€2£2806cdbåf5c3772407cd821ccdbét 
5c39423df те", 5087 

2100 DATA "2cc2Balce7cdB2iccdbét 
Sc32d73e7cd1t Ired30250c2451dd+ fe7 
€28+ 1с96+5", 4592 

2110 DATA "c9dfcdI025c2651ffdcbo 
1fbcdBd2c3016e7+e242005fdcbOlhåe 
71e28203ce7", 4248 

2120 DATA "fe292820cd8d2cd2Balce 
be7te242002ebe7ebO10600cd551&232 
3360efe2c20", 3411 

2120 DATA "03e718e0fe292013e7fe7 
d200ee73a3b5ct5cdfb24f1fdae01e64 
Oc2Balccdbé", 4507 

2140 DATA "f5cd991ec3cd?91ee1505 
Feba7ed52224 1f0ed53f 14021 #f3f 0360 
led7b3d5cf1", 4981 

2150 DATA "c35fefcdd52d3804fe023 
B02c+0a874+0600217d+9095e2356ed5 
30549594409", 3473 

2150 DATA "3S+dcd3025c27af5cd90+ 
Фсй5ғҒ4с2904Ғ4с4594Ғасавв2сзов24о 
B+1+e3a3804", 4949 

2170 DATA "ebdfdé07d630bb200108c 
d67t4te2c200acda7+4cdBB2c3Be3ctO 
bOBcYcd3025", 3993 

2180 DATA "c27af51Bcbcd30252019c 
dificde2ccdB2+43a3bS5c+Scdlf 1414 
d5401aae040", 3794 

2190 DATA "cBc+0b2aSdSceScd+b24+ 
dcbOl7éccoafacdb7+acdfb24e1225d5 
ecdificcdff",4617 

2200 DATA "2acd67f4cdlficcdffZac 
9cdf12b78b1cab22aeld5f7d1c52a615 
серейьоса7", 5047 

2210 DATA "fåcdfb24cleic5225d5cc 


549701264 
04300552 


dificcdff2aedSb6lSccicdb22ac300f 
acdStf4cdB82", 4795 

2220 DATA "1c47ebfefeec20990e00c 
3с8102537с4852810027е+++5с67+4с 
d821ct 1cd30", 4289 

2230 DATA "252808302B1ct5et0238+ 
147cd5tt4te2c782Be2f 1cd3025c8do+ 
еейсаей1ест", 4390 

2240 DATA "671ес108с518е4са10252 
оовағғе?ссое7с27а1с4%4е2с2809211 
027е5010000", 3295 

2250 DATA "1BObe7cd7aiccd99iecSc 
d991ee1a7ed4209380e222dfced432ff 
ccd991e78b1", 3987 

2260 DATA "2002cf0aed4333fccd991 
eed4331tceg4b2dfrcdozfrddeSccbel 
956255ее1а7", 4589 

2270 DATA "ed5230de2a5d5c225f5cc 
d2cfbJefecd01162a5+5c225d5cfd3&2 
6002a2d+c23", 3248 

2280 DATA "с46е197е+53е80772а2++ 
ccdéeiYed5b3itcd57efe802811d1722 
3732be52a33", 3946 

2290 DATA "+с1зе5савв19е51Веза1+ 
177с92а555с7еебс0с025254е2346е50 
9224d5ce122", 4091 

2300 DATA "2b+c225d5c180ee11802c 
8726 130062a4d5c2318dbcd67$4e5216 
afbáfcddcló", 3601 

2210 DATA "20е516005е19с42с16189 
=fE101c25ec3aed3Ge136f 0344 732853 
00001са++2а", 3494 

2520 DATA "Sd5c237ecdb&lBfeddcBa 
0ЬҺ9204422545с181701есҒес07еҒһе?с 
d821c+5e+02", 4254 

2330 DATA "384 fezccOcdaSibiBef2 
а585с237е ебегвоосатъгаавтведезс 
36618493226", 4130 

2340 DATA "оФғеоасвозғе?сі1сов52 
b2b462båecd02fceldeddeSc 18523232 
3712370e1ed",4109 

2350 DATA “56545152256 5ссбечез1 
PJettedOlldcledlblazasdSced5b2bt 
ca7edS2eb72",3 
236 DATA 2a2dtca7eda2de2 
а2+#ссайсе+000едагал + ссбсаветос 
1cdBO19d0ed", 4319 

2370 DATA "5ызз#сай1®с5саьв!®еһ1 
Been00010270 Һ25с562 
e2bf9202b22", 266 

2380 DATA "585с#4213а5с219655224 
$5c1 1a4 1501 1500ebedböeb2b22575c2 
322535 2240", 2828 

2390 DATA "Sc3680P322595C3L08233 
6802322615c 226350 22655c Je0+32805 
€328£5c3228", 2285 

2400 DATA "5с3е01954е#9556649556 
асФ124Ғ11105с010едедвоғасьо1сес 
94406443651", 4124 

2410 DATA "N2cdO0+TafllbS+ccdoad 
etd340100+ debOzeec3StetBo7f 20313 
93834204172", 3547 

2420 DATA "618е0120114#463407413 
2с5с#0ьса+О0#+се5+#57ез2а5+е+1+е: 
925tel03821", 4038 

2430 DATA "fe1BT80adélailebiecdi 
lfdelc?e11845710efdfdcb014eco23f 
dcb024åc823", 4132 

2440 DATA "с?2а0с#4са2с1ёе11ааЗ# 
в77с9з5е9000000+5сй4тоспеготасво 
146cc3b0c La", 3556 

2450 DATA "eb7fcd3bOclal38710Sd 
1e482803+e823e20c33b0ccd030b+e2 
OdZIbfefel0",3694 

2460 DATA “386а+е1850624е1650551 
14449с3740211с4+сс9800а2а0е5с575 
a0dtdfe09ca", 3513 


80432402144", 3604 103 “EXT. BASIC"; 


2580 DATA "Зе0+Ь0471аа0аеа?12085 144: 
B181423302003eb25f0cb014eccdb0be 
1с15ааЗ+еа 
2590 DATA 
5 Ве154454с52с5444е20455242415554с 
2890 DATA "1Bab114ffde +52454e55cd",3152 5 FOKE 61245,24: POKE 61266, 1 
о 2600 DATA "4fce535741d04d4f44c5e 2 


021а54е5е00с2с00е21с(44с22с55с21с 50 RANDOMIZE USF 21260 


"a5fea72805afI2a5fec93 4615сФес42с824410845с9",4952 
92015fdcb014e200 


LISTADO 2 
пак Ge CLEAR 60150, PRINT AT 5, LISTADO 4 


10, "EXT. BASIC"JAT 7, 12; "espera 
20 PLOT 72,144: DRAW 96,01 DRA 


ркаш 0,20 


i ТЕТІ 


Газ 
рай ра 
ly 225 TIEN PUNT 2,0: DRAV 0,475 
IED PLOT 0,8: DRAV 255,0 


550 DATA "06а+32а5+е181479393е2 
108054+ tdcbO14e280&d&cd0at+d17 
9ъ9айсс550с" 


2560 DATA "а13е15 ecsestazes Ше 
70644 14 38010414 1494 4 3e0Ba7+acbO LISTADO 3 ТИ код nen ип ев 
9 dåd Fa LET иа 


мо 
че зк TO знах STEP Cao 256 

LET се жю: LET od ML 28). PLOT дан. 
* å 

405 ша 


14e2805fdcb", 3 


257 


O DATA "JOce37Eb0818003e0fa14 10 PAPER 1: BORDER 1: INPUT уа ЗН 
$0b047afed&7laaOaea9iZafedéf1 INK 9: CLEAR 60156: FRINT AT S, Я dom 


А UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


Aproveche la oportunidad de mantener 
como nuevo su Spectrum Plus 

con esta funda, y beneficiese 

de un 30% de descuento 

sobre su precio normal. 


ARCHIVE 
Base de datos 
inteligente 


М)А/С/А( 2! М Е, 


Ya hemos podido ver que 
el QL en su primera versión 
española, que responde a 


Problemas con la impresora 


VER$="MGE”, probablemente 
en honor de alguno de los que 
participaron en su conversión a 


Algunos usuarios nos han 
comunicado que han tenido 
problemas para sacar por im- 
presora los caracteres españo- 
les. Aunque el manual no lo 
mencione, existe una instruc- 
ción (TRA 1) que hace que el 
programa convierta su repre- 
sentación interna para estos 
caracteres en el standard AS- 
СП. Así, cualquier impresora 
que tenga seleccionado el jue- 


go de caracteres español los 
imprime sin problemas, to- 
mando la precaución de te- 
clear TRA 1 en el BASIC an- 
tes de imprimir. 

Además, la nueva versión 
incluye una serie de procedi- 
mientos y funciones que nos 
ayudan a controlar los errores 
en SuperBASIC, y que co- 
mentaremos en un próximo 


número, 
= 


las lenguas peninsulares. Con 
un teclado que permite la intro- 
ducción de los caracteres pro- 
piossin necesidad de malabaris- 
mos con el teclado, y una nueva 
versión de los programas de 
Psion, íntegramente converti- 
dos al castellano y mucho т; 
rápidos, el QL queda en dispo- 
sición de luchar con máquinas 
mucho mayores (hay que tener 
en cuenta que el sistema Xchan- 
ge, nombre de los programas de 
Psion en versión IBM PC, cues- 
ta más que el QL, que los in- 
cluye con la máquina). 


Por otro lado, finalmente Sin- 
clair ha optado por adoptar 
como oficial el sistema de dis- 
cos de 3 1/2 pulgadas de Micro- 
Peripherals, con unidad simple 
o doble de 800 K formateadas. 


Programas espafioles para el nuevo QL 


Existen al menos dos compa- 
ñías que se han tomado muy en 
serio las posibilidades profesio- 
nales de esta máquina: se trata 
de Alsi Comercial, y de Takis. 
La primera ya nos anunció hace 
tiempo la conversión de su pro- 
grama de gestión integrada para 
Spectrum. 


Recientemente hemos podido 
ver una versión demo de este 
programa, y su lanzamiento de- 
finitivo se hará muy en breve. 
Además, se nos anuncian otros 
programas: Alsistocks destina- 
do a control de almacén, con 
hasta 1.800 artículos en micro- 
drive o 14.000 en disco. Espera- 
mos verlo dentro de poco. 


CambiAlsi se encarga de ges- 
tionar nuestras facturas o letras 
de cambio, y AlsiMail sirve 


лу лот 


para manejar un fichero de di- 
recciones е imprimir etiquetas о 
recibos. Con Alsicont podremos 
llevar la contabilidad, con op- 
ciones interesantes. Finalmen- 
te, su Simulador Financiero nos 
ayuda a tomar decisiones y pla- 
nificar nuestro negocio. 


Takis, que ya había realizado 
algunas aplicaciones profesio- 
nales para Spectrum, también 
confía en la nueva máquina. He- 
mos podido ver su MASTER- 
COM, un programa que combi- 
na la contabilidad con el control 
de stocks. 


El programa ofrece una pre- 
sentación muy atractiva, einten- 
taremos hacerle un test exhaus- 
tivo en breve. Está preparado 
para su uso con la unidad de dis- 
kettes que comercializa Inves- 
trónica, y dispone de hasta 
10.000 artículos, 1,000 provee- 


dores y 5.000 clientes o distri- 
buidores. La impresión se podrá 
realizar por cinco modelos de 
impresora diferentes, y es el pri- 
mero de una serie de programas 
profesionales. Su siguiente «in- 
cursión» será en el terreno de 
las profesiones liberales, con 
programas para médicos, aboga- 
dos, etcétera. 


LALO кш 


Ez 


velte ма. 


Todos sus programas traba- 
jan con la unidad de disco, y dis- 
pondrán de protección Hardwa- 
re, ya que, nos han confesado, 
están muy escamados con la pi- 
ratería de los programas para 
Spectrum. 


También en Inglaterra hay movimiento 


Entre las compañías de sofi- 
ware que han elegido el QL, Ta- 
lent Software ha producido ya 
dos programas muy interesan- 
tes: Cartridge Doctor, destinado 
a «curar» nuestros cartuchos de 
microdrive que presenten pro- 
blemas de carga, y del que ha- 
blamos en otro artículo en este 
mismo número. Por otro lado, 


GraphiQL es un programa de 
dibujo que nos permite dibujar 
con el ordenador, como si se 
tratara de un lienzo. Novedades 
respecto a otros programas del 
mismo tipo son la definición de 
texturas (análogo del dibujo de 
un papel pintado), con las que 
se pueden rellenar áreas, y el di- 
bujo con aerógrafo, que rellena 


la zona por la que nos movemos. 

Ambos juegos son distribui- 
dos por Serma, que también co- 
mercializa la versión para QL 
de D-Day, un juego de guerra 
de los más potentes que se han 
desarrollado, que nos permite 
dirigir el ejército aliado y ale- 
mán en el desembarco de Nor- 
mandia. 


оз 


| 
И 


> 
5 
= 
5 
> 
=) 
© 
= 


а mayor parte de las aplica- 
ciones profesionales se limi- 
tan а almacenar, actualizar 
y presentar con el formato adecua- 
do un conjunto de datos relaciona- 
dos entre si. Vienen a ser simple- 
mente una base de datos а la que se 
ha privado de su flexibilidad. 

Si disponemos de una base de 
datos programable nada nos impi- 
de realizar nosotros mismos una 
icaciön а la medida. Este es el 
propósito de Archive: dotarnos de 
los medios para construir nuestro 
programa de gestión. 


са 


Las bases de datos, 
sistemas de tratamiento 
de informaciön 


Todos hemos oído hablar alguna 
vez de estos programas, pero resul- 
ta muy difícil explicar qué se en- 
tiende exactamente por este térmi- 
no, ya que el mismo nombre sirve 
para identificar programas muy di- 
ferentes. En esencia, una base de 
datos es un programa que gestiona 
la entrada y recuperación de infor- 
mación. 

La comparación de estos progra- 
mas con los archivadores nos ayu- 
dará a ver cuál es el avance que su- 
pone la informatización de nues- 
tros datos. En un archivo guarda, 
en cada ficha o carpeta, informa- 
ción que responde a una determi- 
nada palabra clave (por ejemplo, 
en un archivo de facturas, podría 
ser el nombre de la empresa a la 
que facturamos). Así, la recupera- 
ción de toda nuestra facturación a 
una determinada empresa equivale 
a localizar en el archivo ordenado 
el nombre de la empresa y sacar la 
carpeta. 

El acceso por entradas múltiples 
a nuestros datos potencia la base 
de datos respecto al archivador. 


ом 


Imaginemos, en cambio, que 
queremos hacer una estadistica de 
las ventas por regiones de un ar- 
ticulo determinado. El problema 
es mucho mås dificil, ya que habrå 
que repasar empresa por empresa, 
localizar las facturas que se refie- 
ren а езе articulo у clasificarlas por 
regiones. Un trabajo pesado que 
nos puede resolver el ordenador, 
siempre, claro está, que hayamos 
utilizado una base de datos para al- 
macenar la información. 


Más que una base de datos, 
Archive es un verdadero 
lenguaje de programación, 
que sirve para resolver 
cualquier tipo de problema 


En esa aplicación, cada factura 
sería una ficha o registro, donde la 
información está almacenada en 
distintos campos. Uno podría ser el 
código de artículo, otro la empresa 
a la que se factura, etc. En otros ar- 
chivos auxiliares podemos almace- 
nar las direcciones de las empre- 
sas, y en otro una descripción deta- 
llada de cada artículo. El progra- 
ma, para realizar nuestra estadisti- 
ca, selecciona las fichas que se re- 
fieren al artículo de interés, y ave- 
rigua la región en que está la em- 
presa mediante los archivos auxi- 
liares. El trabajo sigue siendo com- 
plicado, pero por lo menos parece 
manejable. 

Con este pequeño ejemplo he- 
mos ido subrayando algunas de las 
características interesantes de una 
base de datos. Debe permitir traba- 


jar con varios archivos simultánea- 
mente, poder tomar decisiones en 
función de los valores de los cam- 
pos, y debe tener funciones de bús- 
queda y selección que permitan 
cribar el archivo a nuestro gusto. 


Para comenzar, es necesario 
crear un fichero de datos 


Archive es un programa que ma- 
neja ficheros de datos. Por tanto, 
para empezar a trabajar el primer 
paso es crear un archivo. La ins- 
trucción crear hace justamente 
eso. Esta sentencia va seguida del 
nombre del fichero que almacena- 
rá nuestros datos, y en líneas suce- 
sivas van los nombres de los cam- 
pos que va a tener nuestro archivo, 
acabados en «$» si son alfanuméri- 
cos. Para indicarle al programa 
que la operación de creación ha 
acabado basta teclear fincrear, 
aunque si el comando no forma 
parte de un programa basta teclear 
una línea vacia. 

Una vez creado el archivo, la 
función cuenta() nos devuelve 
como resultado el número de fi- 
chas que contiene nuestro archivo. 
Si queremos ahora llenar algunas 
fichas se puede hacer mediante in- 
sertar, que añade nuevos datos. El 
programa sitúa el cursor en el pri- 
mer campo, nos permite introdu- 
cirlo y editarlo y, al pulsar EN- 
TER o TAB, pasa al campo si- 
guiente. Una pulsación de 
MAYUSCULAS TAB nos devuel- 
ve al campo anterior, que podemos 
modificar. Mediante F5 se intro- 
duce el registro como está en el fi- 
chero, y F4 o ESC nos sacan del 
comando. 

Todo el proceso de edición ha- 
brá tenido lugar en la pantalla. 
Como no hemos definido una pan- 
talla de presentación, el programa 
nos proporciona una bastante ru- 


ARCHIVE: 


| 


| Una Base 
' de Datos a la medida 


dimentaria, con los nombres de los 
campos, uno en cada línea, y espa- 
cio para introducir los datos en el 
resto de la línea. Ese formato se 
puede modificar fácilmente para 
presentar la información en panta- 
lla de una manera más cómoda. 
Existe un comando muy pareci- 
do a éste. Se trata de Alterar, que 
nos enseña el registro sobre el que 
nos hayamos posicionado y nos 
deja modificar. sus campos. Otra 


abrir anterio 
iba el сопотдо 


Кобе lógico г mes 
countrys 

continents 

pi (01$ 


manera de cambiar registros es uti- 
lizando las variables de campo. Es- 
tas, que tienen el mismo nombre 
de la definición del archivo, nos 
devuelven el campo correspon- 
diente del registro sobre el que es- 
tamos posicionados, y se actuali- 
zan cada vez que cambiamos de 
posición. Podemos modificarlas 
mediante la sentencia haz (let), y 
cuando los valores de los campos 
sean correctos, bastará introducir 
actualiz para que el programa defi- 
na el registro de acuerdo con los 
valores de las variables de campo. 
Este procedimiento está pensado 


para ser utilizado dentro de los 
programas, y resulta muy cómodo 
para calcular el valor de un campo 
en función de otras variables. El 
comando añadir actúa de manera 
parecida, pero añade un nuevo re- 
gistro con los valores de las varia- 
bles de campo. Desde el teclado se 
puede elegir la ficha de interés re- 
corriéndolo con los comandos pri- 
mero, último, próximo y anterior, 
pero resulta más práctico usar los 


comandos de búsqueda: situar, ha- 
llar, buscar y elegir. El primero 
nos sirve para localizar un valor de 
un campo determinado. Pero para 
utilizarlo hay que ordenar previa- 
mente el archivo. 


Indexación de archivos. 
Una herramienta necesaria 


La indexación puede incluir 
hasta cuatro campos, y situar pue- 
de tener tantos parámetros como 
campos de ordenación. Hallar nos 
busca una cadena de caracteres en 


cualquiera de los campos de un ar- 
chivo. Es el comando a usar cuan- 
do no estamos seguros del campo 
en que aparece la información. Los 
comandos buscar y elegir aceptan 
una expresión lógica. Buscar loca- 
liza el primer registro que haga la 
expresión distinta de cero. Elegir 
selecciona los registros que cum- 
plan la condición; a partir de ese 
momento el fichero se comporta 
como si no hubiese más registros 
que los elegidos, y sólo el comando 


Una norma a no olvidar: 
cerrar siempre los archivos 


restaurar devuelve el fichero a su 
condición inicial. Las expresiones 
se suelen componer de variables de 
campo. 

Por ejemplo, si queremos averi- 
guar cuántos clientes tenemos con 
saldo negativo, basta teclear elegir 
saldo <0. Después de esta opera- 
ción, todos los comandos afectarán 
sólo a los registros con saldo nega- 
tivo. Si hubiésemos introducido 
buscar saldo<0, el programa se 
detendrá en el primer registro con 
saldo negativo. Después de tomar 
medidas contra el moroso, si te- 
cleamos continuar el programa irá 
al siguiente. 


Definir pantallas: una buena 
presentación disminuye errores 


Hasta ahora no hemos hablado 
apenas de los comandos que afec- 
tan a la pantalla e impresora. Entre 
los más importantes están escribir, 
equivalente a PRINT, o imprimir, 
que sustituye a LPRINT. Ambos 
admiten en, tab, tinta o papel 


als 
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APLICACION 


como paråmetros. Otro comando, 
via, permite que el texto se impri- 
ma a microdrive o incluso а la pan- 
talla. Limpiar borra la pantalla. 
No olvidemos que, si teníamos de- 
finido un formato, será necesario 
volver a activarlo con pantalla. 


El editor de pantallas de Archie 
resulta muy útil cuando queremos 
presentar la salida de una forma 
agradable a la vista. Una vez intro- 
ducido el comando Peditar se nos 
permite teclear nuestro «impreso». 
Å continuación, de una manera 
sencilla, especificamos qué varia: 
bles se imprimirán y en qué posi- 
ciones de la pantalla. El resultado 
puede ser tan agradable a la vista 
como queramos y, aunque el edi- 
tor es poco flexible, es una tarea 
que se hace sólo una vez. 


Error 1 
høl Lar 


Comando no reconocido 
paño” 


Los comandos que hemos citado 
hasta ahora admiten su uso directo 
desde el teclado o pueden ser in- 
corporados en nuestros programas. 
Existen instrucciones que sólo tie- 
nen sentido dentro de un progra- 
ma. Una de ellas es si, que junto a 


ов 


sino у finsi nos permiten tomar de- 
cisiones. Mientras y finmientras es 
una estructura de bucle que itera 
mientras sea cierta una condición 
lógica. También resulta muy útil 
todos, que repite las operaciones 
entre el comando y su correspon- 
diente finitodos con todos los re- 
gistros seleccionados. Si queremos 
tener varios ficheros abiertos si- 


multáneamente, debemos asignar- 
le un nombre lógico a cada uno. 
Los programas de Archive se or- 
ganizan mediante procedimientos, 
que se pueden llamar como si fue- 
ran comandos del sistema. El pro- 
grama incluye un editor sencillo, 


pero cómodo de manejar, y una 
instrucción traza, que permite se- 
guir paso a paso la ejecución de 
nuestros programas. 

En resumen, un programa po- 
tente, no tan fácil de manejar 
como seria deseable. 

Entre las principales virtudes de 
Archive está su capacidad para eje- 


Los programas Archive se 
organizan mediante 
procedimientos 


cutar comandos programados por 
el usuario, una característica pre- 
sente sólo en algunos programas 
para máquinas profesionales, y 
siempre a un precio poco asequi- 
ble. Lo peor del programa es el 
editor de pantalla, algo confuso en 
su utilización y con el que resulta 
fácil equivocarse. 

Para hacerle justicia a Archive 
tendríamos que usar diskettes y 
una ampliación de memoria que le 
dejara «moverse a sus anchas». En 
general, el programa merece un 
diez en potencia, un siete en facili- 
dad de uso, un seis en presentación 
de resultados, y (la versión 2) un 
ocho en velocidad. 

Por último, queremos decir que, 
dada la extensión de este artículo, 
es inevitable dejar muchos coman- 
dos sin siquiera comentar, y ape- 
nas hemos citado un par de funcio- 
nes. No sería exagerado decir que 
Archive es un lenguaje de progra- 
mación, y que su potencia permite 
escribir programas para cualquier 
tipo de aplicación. El programa no 
resulta difícil de manejar, pero si 
queremos «exprimir» las posibili- 
dades de la máquina, habrá que 
practicar bastante. ¡Por cierto! Si 
algún lector ha escrito alguna apli- 
cación interesante, estaremos en- 
cantados de publicarla en nuestras 
páginas. 
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Los programas para recupe- 
rar información de discos par- 
cialmente estropeados son de 
uso cotidiano en máquinas 
como el Apple II o el IBM PC. 
Teniendo en cuenta la fragili- 
dad del microdrive era raro que 
ninguna compañia inglesa se 
hubiera lanzado hasta ahora a 
escribir un buen programa para 
cuidar nuestros cartuchos. Ser- 
ma se ha traido de Gran Bretaña 
este doctor, escrito por los chi- 
cos de Talent. 

Según el manual de instruc- 
ciones, que resultará claro para 
quienes dominen el inglés, el 
programa utiliza avanzados 
conceptos de inteligencia artifi- 
cial (02). El programa parece 
«listillo», pero no tan inteligen- 
te como nos quieren hacer creer 
sus autores. 

Nada más arrancar, dispone- 
mos de cinco opciones: AUTO- 
CLONE, que duplica un cartu- 
cho en otro, incluyendo los fi- 
cheros que habían sido borra- 
dos y aquellos que dan proble- 
mas de carga. FILE PATCH 
nos permite editar archivos al 
nivel más bajo, parchear aque- 
llos ficheros que nos den pro- 
blemas de lectura, o simple- 
mente curiosear su contenido. 

SALVAGE SECTIONS sirve 
para copiar parte de un archivo 
a otro, con la posibilidad de sal- 
tar una parte defectuosa. La 
cuarta opción nos ofrece un 
catálogo ampliado, con el nú- 
mero de bloques que ocupa el 
archivo, y qué entrada ocu- 


N Cartridge Doctor, 


para no perder 


pa en el directorio. Por último, 
TRANSLITERATE copia un 
archivo en otro cambiando to- 
das las ocurrencias de un carac- 
ter dado por otro. 


Salvar cartuchos 
dañados, una tarea fácil 


La opción de duplicación es 
la primera que debe usarse 
cuando tenemos problemas de 
carga; así evitamos dañar aún 
más el cartucho en nuestros tor- 
pes intentos de salvación. Para 
ello es necesario disponer de un 
cartucho vacio, en el que se rea- 
lizará la copia. El programa em- 
pieza mirando si el directorio y 
el mapa de sectores están en 
buen estado. A continuacion 
nos presenta el nombre de cada 
fichero, con el mensaje OK si lo 
ha leido bien, y el número de 
bloques incorrectos еп caso 
contrario. Se nos da la opción 
de pasar cada fichero al nuevo 
cartucho. 


Una vez acabada la copia po- 
demos optar por intentar par- 
chear los archivos que no hayan 
podido ser recuperados correc- 
tamente, Si éstos están en códi- 
go máquina, los resultados se- 
rán negativos la mayor parte de 
las veces. Si son BASIC o de 
texto, aún podemos conservar 
esperanzas. 


No os sorprendais si el pro- 
grama presenta en pantalla 
nombres de archivos que bo- 
rrásteis hace meses: una de sus 


información 


características es que recupera 
ficheros borrados, siempre que 
el espacio que ocupaban no 
hava sido «machacado» por 
otro archivo. Así, si accidental- 
mente perdemos algún dato im- 
portante, no debemos volver a 
utilizar el cartucho hasta haber- 
lo recuperado mediante Car- 
tridge Doctor. 


La opción de parcheado es un 
editor muy simple, que nos pre- 
senta caracter a caracter cada 
bloque, pudiendo escribir en él, 
pasar al bloque siguiente, etc. 
Si, por ejemplo, un bloque es 
leido con dificultad, basta si- 
tuarse en él (tras una buena lec- 
tura) y decirle al programa que 
lo vuelva a escribir. General- 
mente desaparecerán los pro- 
blemas, y la carga será más rápi- 
da. 


Sólo para copias 
de seguridad 


Más de un pirata se frotará las 
manos al leer este artículo, pero 
mucho nos tememos que sus 
ilusiones ser verán defraudadas: 
Cartridge Doctor sólo copia, no 
desprotege. Cualquier progra- 
ma protegido mantendrá su 
protección, y los programas que 
no lo están se pueden copiar 
desde el BASIC, así que no se 
trata de «abrir», Este programa 
es mucho más útil: recupera in- 
formación que se quedó enreda- 
da en los bucles del microdrive. 
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Este monitor en color 
CUB es TOTALMENTE 
compatible con el Sin- 
clair QL. 

Combina las capacida- 
des de gráficos destaca- 
dos con la facilidad de 
visualizar textos en 85 
columnas mientras hace 
justicia al potencial de 
color del QL. Su nuevo 
diseño dotado de una ba- 
se basculante y giratoria 
armoniza perfectamente 
con la simple apariencia 
funcional del QL. ў 
Lo mejor де todo, es su 
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La memoria 


omo su propio nombre in- 

dica, esta vale para almace- 

nar los datos y programas 

que se ejecutan, sin ella el 

ordenador seria un amnési- 
co perdido y no serviria para nada 
al no poder recordar nada. Es mås, 
debido а que todos los programas 
que ejecuta se almacenan en me- 
moria, se podria decir que un orde- 
nador sin memoria estå en coma 
profundo ya que no seria capaz de 
hacer nada (ni siquiera nos podria 
poner en pantalla el mensaje ini- 
cial de Sinclair Research ya que 
esto también lo hace un programa 
especial denominado «sistema 
operativo»). 

Esta memoria se divide en dos 
grupos distintos. El primero es el 
compuesto рог la «memoria 
ROM» (abreviatura de «Read 
Only Memory»), ésta es de un tipo 
que sólo se puede leer por micro- 
procesador y no escribir. Esto pue- 
de crear la idea deque entonces no 
tiene ninguna utilidad, ya que no 


se pueden introducir datos. Pero la 
realidad nos demuestra que hay 
una serie de programas que nunca 
se modifican y que vienen con la 
máquina, por lo que es más conve- 
niente este sistema que no leerlos 
de cinta cada vez que los necesite- 
mos. Entre otros programas hay 
que destacar al sistema operativo y 
al intérprete BASIC. Estos se gra- 
ban en la ROM directamente en la 
fábrica por procesos especiales. 

La RAM (nombre que proviene 


del término «Random Access Me- 
mory») consiste en la memoria en 
la que sí se puede escribir además 
de leer. En ella se almacenan los 
datos, los programas que teclea- 
mos o cargamos de cinta, etc. Este 
tipo de memoria es, por tanto, mo- 
dificable y todos los datos guarda- 
dos en ella se borran al apagar la 
máquina, perdiéndose irremedia- 
blemente si no los hemos grabado 
en cinta. 

El funcionamiento de la memo- 
ria dentro del ordenador es un tan- 
to especial, por lo que lo examina- 
remos más atentamente. Como co- 

å cada memoria 
individual consiste en una casilla 
en la que se pueden almacenar da- 
tos, cada una de estas casillas estå 
numerada y no hay dos que posean 
el mismo numero, ya que entonces 
nuestro «cartero», el Z-80, no sa- 
bria а cuål de las dos dirigirse. La 
cantidad de casillas disponibles 
estå limitada, por tanto, por los 
numeros que se puedan usar y esto 
lo determina el microprocesador. 
En el Z-80, como veremos poste- 
riormente, el патего inferior que 


se puede utilizar es el 0, y el mayor 
el 65535(FFFFh), por lo que exis- 
ten 65536 сазШаз distintas. 

Otro detalle caracteristico de las 
memorias en su almacenamiento, 
cada vez que introducimos un dato 
en una de ellas, el que existiese en 
esa misma previamente se borra y 
es sustituido por el nuevo. Por tan- 
to, cada una de ellas sölo puede 
contener un número que debe es- 
tar comprendido entre 0 y 255 (un 
byte que es lo que cabe en cada 
una). También peculiar es el caso 
de sacar un dato de una casilla 
para leerlo, ya que, al contrario 
que las cartas del buzón, cuando 
sacamos un dato de una memoria, 
sigue existiendo una copia de él en 
la memoria. En realidad el único 
método existente: para borrar un 
dato de una memoria es escribir 
otro encima. (Por supuesto este 
método de escritura sólo se puede 
usar con la memoria RAM y no 
con la ROM). 


y salida 


Un proceso vital que debe reali- 
zar todo ordenador para ser útil es 


el de comunicarse con el mundo 
que le rodea. Esta frase tan grandi- 
locuente se transforma en el Spec- 
trum en el proceso de leer datos 
del teclado, mostrarlos por panta- 
lla, grabar y leer en cinta, etc. Re- 
sulta evidente que si no se pudie- 
sen realizar estos procesos el orde- 
nador sería un trasto totalmente 
inútil ya que aunque fuese muy 
potente, nosotros no podríamos 
utilizarlo para nada. 

Estas funciones las realiza en el 
Spectrum el microprocesador ayu- 
dado por un chip llamado «ULA» 
(Uncomited Logic Array) que es lo 
que podríamos denominar un 
«procesador de entrada y salida»; 
es decir, una especie de micropro- 
cesador diseñado especificamente 
para estas funciones. 


FIGURA 5 


El microprocesador 


Este es el famoso Z-80 y fue di- 
señado por la compañía norteame- 
ricana Zilog (la mayoría de los 
componentes de un ordenador no 
son construidos por el fabricante 
de éste, sino que los compra a otras 
empresas especializadas en estos 
trabajos). Este chip (o cucaracha, 
como se le denomina vulgarmente 
en España) se encarga de controlar 
todos los procesos y de realizar to- 
dos los cálculos. Una representa- 
ción por bloques de su estructura 
se puede ver en la figura 5. En ella 
vemos que dentro de él existen una 
serie de «cajas» denominadas re- 
gistros, en los cuales se almacenan 
diversos datos necesarios para el 
funcionamiento y los cálculos que 
le ordenemos. También existen 
tres huses que salen de él hacia el 
exterior. Estos son una serie de li- 
neas por las que se controlan las 
memorias y el procesador de entra- 
da y salida. 


En el bus de direcciones se en- 
vian los números empleados para 
seleccionar una memoria u otra, 
de modo que si aquí hay un cero, 
se manejará la memoria cero y se 
hay un mil, se manejará la memo- 
ria mil. El bus de datos es por don- 
de se envian y reciben los datos a 
las memorias y al procesador de 
entrada y salida. 


Por último existe un bus de con- 
trol que se encarga de llevar todas 
las demás señales necesarias para 
el correcto funcionamiento de la 
máquina y que iremos viendo pos- 
teriormente, interrupciones, con- 
trol de la ULA, refresco de la me- 
moria, etcétera. 


Los registros internos que co- 
mentamos antes tienen cada uno 
encomendadas misiones especifi- 
cas como vamos a ver. 


El primero es el acumulador, гс- 
presentado por la letra «A». Aquí 
se realizan todas las operaciones y 
se guardan los resultados. Su equi- 
valente más directo es la pantalla 
de una calculadora, en la que se 


meten todos los datos y donde se 
muestran los resultados. Su capa- 
cidad es la misma que la de las me- 
morias, un byte. En realidad se 
debe a la capacidad de este registro 
el que las memorias no puedan 
contener más datos cada una, ya 
que aunque las hiciésemos más 
grandes, no cabrian aqui y los digi- 
tos sobrantes se desperdiciarian. 

El registro PC es, junto con el 
acumulador, el más importante del 
microprocesador ya que es el con- 
tador del programa, es decir, aquí 
se almacena la dirección de la me- 
moria donde está almacenada la si- 
guiente instrucción del programa 
que se está ejecutando. Es un regis- 
tro de 16 bits, por lo que ésta es la 
cantidad máxima de memoria que 
puede direccionar el microproce- 
sador, cualquier memoria situada 


fuera de este rango no podría ser 
manejada y sería inútil. El manejo 
de este registro lo realiza, casi 


76543210 
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FIGURA 6 


siempre, el microprocesador por 
su cuenta y lo incrementa después 
de cargar una instrucción para que 
apunte a la siguiente de módo que 
cuando la tenga que ejecutar ya 
sepa cuál es su dirección, que se 
saca por el bus de direcciones. 

El segundo registro de 16 bits 
existente en el Z-80 es el «SP», de- 
nominado stack pointer, que tra- 
ducido al español significa «punte-, 
ro de la pila». Esta es una zona de 
la memoria general que se reserva 
para ser usada como una memoria 
«LIFO», que resulta muy útil para 
almacenar y sacar datos a gran ve- 
locidad, aunque debido a las res- 
tricciones de este manejo (sólo se 
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puede manejar la Ultima que se ha 
metido) no se puede usar siempre. 

Otros registros son los formados 
por las parejas B-C, D-E y H-L. 
Cada una de estas parejas se puede 
usar como un registro de 16 bits 
para apuntar a direcciones de me- 
moria, como dos de 8 bits en los 
que se guardan datos de uso gene- 
ral. Estos registros son muy versá- 
tiles y aunque no permiten realizar 
operaciones aritméticas en ellos 
como se hace con el acumulador, 
son muy usados. 

Los registros ІХ е ІҮ son regis- 
tros de indexación. Este es un siste- 


ma para usar la memoria que es 
muy útil, sobre todo, para hacer 
contadores o manejo de matrices 
desde lenguaje máquina. Estos dos 
registros se usan siempre como de 
16 bits ya que están destinados a 
direccionar la memoria. 


Las banderas internas 


A continuación tenemos un re- 
gistro F. Este contiene un byte, 
pero aquí no expresa un número, 
sino que cada uno de sus bits tiene 
una función independiente de los 
demás; en este caso a cada bit, de- 
bido a que tiene una función dis- 
tinta, se le denomina bandera. 
Cada una de ellas es similar a un 
interruptor de la luz que cuando 
está «encendido» indica una cosa y 
cuando está «apagado» la contra- 
ria. La disposición de estas dentro 
del byte es la que se indica en la fi- 
gura 6. Å continuación vamos a 
ver las funciones básicas de cada 
una de ellas, aunque posterior- 
mente se explicarán algunos usos 
no tan específicos como estos. 

La primera que vamos a tratar es 
la bandera de acarreo («C»). Esta 
es modificada por un gran número 
de operaciones matemáticas y lógi- 
cas. Quizá la principal de ellas, por 
lo menos por la que recibió el 
nombre, sea la suma. Recordarán 
que al hablar de la suma de núme- 
ros binarios, vimos cómo se hacía 
y que en muchos casos, como en 
cualquier otro sistema de numera- 
ción, resultaba que «nos llevába- 
mos uno» al sumar. Pues bien, si 
trabajamos con bytes pueden darse 
casos en los que obtengamos un re- 
sultado con 9 bits, como por ejem- 
plo «10010006» más «01! 1010b», 
que da «1000001105». Siendo el 
bit más alto (el octavo ya que em- 
pezamos a contar desde el cero) un 
uno. Este no nos cabe en el acumu- 
lador porque sólo tiene capacidad 
para un byte (8 bits), lo que hace el 
microprocesador es meter los 8 
más bajos en éste y el noveno lo 
mete en la bandera de acarreo. De 


modo que si la suma Ча más de 8 
bits se mete un uno, y si no un 
cero. En cierto modo se puede 
considerar una extensión del acu- 
mulador para ciertas operaciones 
pero se tiene que recordar que si 
leemos o grabamos este en alguna 
memoria, no se grabará el acarreo. 

La bandera N es usada interna- 
mente por el microprocesador 
para indicar si se ha realizado una 
suma o una resta y no suele tener 
utilidad para el programador. 

La bandera «P/V» tiene dos fun- 
ciones distintas. Cuando se realiza 
una operación aritmética en el 
acumulador con signo (es decir, se 
utilizan sólo siete bits para expre- 
sar el número mientras que el últi- 
mo indica el signo, un uno indica 
negativo y un cero positivo) éste 
indica si se ha producido un error 
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de exceso en el cálculo. Es, por 
tanto, similar a la de acarreo pero 
en ésta se consideraba el número 
sin signo. El modo de realizar ope- 
raciones con signo lo veremos más 
adelante, ahora nos basta con sa- 
ber que existe. 

Otro tipo de acarreo que toma 
en consideración el microprocesa- 
dor es el del nibble, para lo cual se 
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usa la bandera «H» como la «C» 
pero en lugar de indicar un exceso 
en la suma de todo el byte, todo el 
nibble inferior y se pone a uno si al 
sumar da un | en el byte siguiente 
al del nibble. Es decir, al realizar 
sumas aqui se almacena el byte 5 
del acumulador, pero con las restas 
puede variar. En general se usa en 
las sumas de números pequeños о 
en ocasiones especiales. 

La bandera «Z» indica cuándo 
en el acumulador hay un cero. 
Esto es muy útil cuando se realizan 
bucles que se terminan al llegar de- 
terminado valor a cero, ya que bas- 
ta comprobar esta bandera y pro- 
ceder en consecuencia. 


VENTA EN EL 
“CORTE INGLES” 
Y TIENDAS 
ESPECIALIZADAS 


:10 ficheros con impresión de recibos mensuales, mailing, acceso directo, 800 


: Impresión de letras de cambio y recibos negociable. 


:8.000 asientos en cartucho microdrive, 64.000 en disco 800 K, 1,3 segundos 
por asiento, balances y extractos inmediatos, 2 niveles, subcuentas en todas 


las cuentas, cantidad de cuentas ilimitada, etc. 


presupuestos, estadísticas, relaciones, 


16 + Contabilidad 230.000 Ptas. 


D - 28026 MADRID -ТеН. 475 43 39 


Al igual que la anterior indicaba 
cuándo había un сего en el acumu- 
lador, la «S» indica con un uno 
que hay un número negativo y con 
un cero que hay un positivo. Esto, 
evidentemente, sólo tiene sentido 
cuando se opera con números con 
signo. Esta bandera en realidad 
adopta el mismo valor que el bit 
más alto del acumulador (el 7). 

Las dos banderas que en la figu- 
ra están a cero no se usan y su va- 
lor resulta indiferente para noso- 
tros. 


GUSANEZ 


¡HOLA! 
¿QUE HACES? 


\ 
ESTOY PENSANDO... 


Los registros paralelos 


Al ver cómo eran los registros 
internos del acumulador, vimos 
que existía un grupo compuesto 


por А’, Е, В, С, D’, Е, Hy L’ 
que егап paralelos а los que hemos 
visto. Estos registros primos for- 
man un grupo especial que no se 
puede utilizar normalmente y que 
зе cambian con los principales me- 
diante una instrucción especial en 
cuyo caso sólo podemos usar los 
nuevos. Su uso se suele reservar 
para ejecutar rutinas a gran veloci- 
dad para evitar perder tiempo 
guardando los valores actuales y 
recuperando los nuevos, ya que 
con una sola instrucción se cam- 
bian entre sí. 


Fernando García 


por То С Tomas 


RETURN, PLEASE. 


Guía del comprador de Todospectrun 


* Ordenadores personales Hard y Soft. 
* Cursos de Basic. 


Oficina RENOVACION EN MARCHA, 5. А. 
С Espronceda, 34, 28008-MADRID 
Tino. (91) 441 2 


REMSHOP 1 
Galileo, 4. 28015 MADRID 
Tino. (91) 445 26 08 


REMSHOP 2 
С/ Dr. Castelo, 14. 28008 MADRID 
Tino. (91) 274 98 43 


REMSHOP 3 
С/ Modesto Lafuente, 33. 28003 MADRID 
Tina. (91) 233 83 19 


REMSHOP BARCELONA 
Muntaner 55 - 0804 BARCELONA 

no (93) 253 26 18 

REMSHOP LAS PALMAS 


С/ General Mas de Gamindez, 45. LAS PALMAS 
Tino. (928) 23 02 90 


REMSHOP BILBAO 
С/ General Concha, 12 - 48008 BILBAO 
Tino. (94) 444 68 68 


REMSHOP OVIEDO 
С Matemático Pedrayes, 6 - 33005 OVIEDO 
Tino. (985) 25 25 9 


ELECTRONICA 


&SANDOVALsa 


DISTRIBUIDORES DE: 
COMMODORE-64 
ORIC-ATMOS 
ZX SPECTRUM 
SINCLAIR ZX 81 
ROCKWELL'-AlM-65 
DRAGON-32 
NEW BRAIN 
DRAGON-64 
CASIO FP-200 


ELECTRONICA SANDOVAL, $. А. 
С/ SANDOVAL, 3, 4, 6. 28010-MADRID 
Teléfonos: 445 75 58 - 445 76 00 - 445 18 70 
447 42 01 


ORDENADORES PERSONALES 

е GESTION 

% APLICACIONES ARQUITECTURA 
GARANTIA OFICIAL 


e FACILIDADES DE PAGO 
e ENVIOS A PROVINCIAS 


Barquillo 15 - Tino.: 232 57 37 - 28004 MADRID 


CASSETTES 
DE CALIDAD PROBADA 
PARA ORDENADORES 


Libre de gastos de envio contra reembolso correos 


CAMAFEO mc. Dep. 03 


José Lázaro Galdiano, 1. 28036 Madrid. 


CURSO DE CONTABILIDAD 
PARA P y MEMPRESAS 


ZX SPECTRUM 


— Libros Oficiales Contabilidad 
- Diarios, Ins Balances, etc. 


ANUNCIESE 


por 


MODULOS 


MADRID 
(91)73396 62 


BARCELONA 
(93) 3014700 


unque todavia disfrutamos 
de buena temperatura, Y el 
otoño sólo ha amenazado, 


тшше Пера el momento de ser 


El listado que os presentamos 
permite jugar una partida de par- 
chis contra el ordenador. Este tira 
los dados y mueve sus fichas; des- 
pués del movimiento, tira los da- 
ta qué ficha quieres 
mover. No trates de engañarle, ya 
uy bien las reglas. 


En la primera jugad: 
trum tira I 
un cinco te col 
casilla de salida. Si 68 cualquier 
otra puntuación sacará una ficha y 


moverá tantos puntos como haya- 
t diferencia 


rados. Por lo de- 


tamos acostumb 
bastante usua- 


les. 


Para sacar una piezí 


falta un cinco. 
pueden pasar, ni se puede salir del 


justa. Cuando comemos podemos 
elegir con qué pieza recorremos la 
recompensa, etc. 


1 BORDER 1: 
2 ЕЕ 15 REM 
PARCHIS Нено ы Сита FARCHIS 18 = 
3 RANDOMIZE Få 
в ES REM RAUL GONZALEZ ER 
2 BRAVO 
8 20 е 
21 REM 
Eee 


Si tenemos todas las fichas y 54- 
camos un seis, movemos siete casi- 
llas, además de volver a tirar. Si re- 
petimos tres veces el seis, NOS va- 
mos directamente å casa. 


Como en otras ocasiones, las le- 
tras que aparecen subrayadas en el 
listado corresponden а los caracte- 


nido (también llamado «almohadi- 
Па»). Esperamos perdonéis estas 


ve a adaptar el juego para que ad- 
mita varios «humanos», О el Spec- 
trum juegue varios turnos, уа sabe: 
tiene un hueco en nuestra sección 
de programas. Por lo demás, los 
gráficos son excelentes, Y los tiem- 


jugar basta tener la paciencia de 
introducirlo y UN Spectrum de 
K. 


Raúl González Bravo 48K 


si HEr smagt" т 
32 п de col us fic 
Қ solor ver че 
235 itue қ r verde 
АЛ GO SUR, 230 а КЕТ tu casa abajo а да ви s 
40 LET z$=" " las mias son rojas la derech 
ienvenido al EV в ne ea estan 
jue 60 LE E pi А 
vamos а juego del ра i LET s$=5$+" 2 
А сеске бе чү ia п lå primera så а Е 
За asion о е 5 4а rada у 
Е 1ante juego. Ge ene PERES yo te muevo 
s ficha Este e saldran а ии 
жепазе as son ti + dos +1- > neo t 
Е а col Chas, ci es 
ы п la е una Жі 
= хы zh 


illa 


alida imum. 5)" partir de la s a 


Hogramas 


139 LET (жі: LET уз 
141 РОК п=1 ТО LEN 85 
142 IF «%(п)<7:% THEN 
s INT «ЕМрж?) 
143 FRINT AT +, 
145 LET dti 
146 IF « THEN LET 9=1: LET 
f=f+1 

147 NEXT n 

148 FRINT АТ 21,1; 
CLA РАКА CONTINUAR" 
149 FOR n=1 TO 2 
R 3190: NEXT n 
150 FRINT FLASH 1;AT 10,8 
ERA UN MOMENTO" 

51 LET cosiet 


ВЕЕР. 


dist(m) 


"FULSA LINA TE 


¿ANDOMTZE US 


¡"ESF 


påsken. LET р 
153 DIM k(50 (49: DIM EC 
12): DIM с(100): DIM х (86,2): DI 
М y(86,2) 

154 RESTORE 159 

155 FOR n=1 ТО 48 

156 READ а 

157 LET k(n)=a 

158 NEXT n 

159 DATA 12,17,51,56,22,46,12,1 


7,.851,56 


з 


з2,1,1,1,2,1,1,2,2,2 
RESTORE 166 

FOR n=1 TO 86 
READ a,b 


LET fn, 1) за: LET y(n, 1)=b 


DATA 20,0,18,0,18,1,18,2,18 


115,6114,6 
170 DATA 
о 
12, 14, 1.17 
171 DATA 1 
8,18,19,18 


.19,21,18,2 


a 14 


172 DATA 2 


TO ве 


174 READ a,b 
175 LET хм, 2) 
176 NEXT n 


186 LET г (n)=a 
187 NEXT n 

188 DATA 5,12,17 
1,56,67,68 


230 250 

240 FOR ТО 18: READ a$: FOR 
s=0 TO 7; READ а; FOKE USR a$+s 
‚а: NEXT s: NEXT п 

250 DATA "a",1,3,7,15,31,63,127 


DATA "b",255,127,673,31,15,7 


25 


В 


© 


254 DATA "c",0,0,24,60,60,74,0, 


"а", 24, 36, 90, 189, 189,9 


"ete pi 


"$4",0,128, 192, 224, 


o 


264 DATA 
о 
266 DATA 


124,62 


102,10 


0,60, 66,90, 70,66,6 


"et, Oy 60,90, 126, 126,90 


ÉS 


о Е 
380 FOR s=0 TO © STEF 9: FOR m= 


O ТО 21: PRINT AT п,в; NEXT 
NEXT 5 
385 FOR n=0 ТО 21 STEF 21; FRIN 


FRINT 
NEXT n 


РАРЕК 


FRINT РАРЕ 
"i NEXT п 
TO 11; PRINT PAPE 


"з NEXT п 


4 FO 11: PRINT РАРЕ 


Кё; AT п, "ч NEXT п 
440 INF і FOR n=144 
TO 166: FLOT п, б6+ете: DRAW 0,4 


тезі: NEXT п 
: FOR n=190 
PLOT п, 66+ете; 

eme): LET ете=ете+1 


4-(2xeme): LET ете 
‚ 450 INK LET eme= 
TO 168 STEP -1: 
DRAW 0, 44- 
: NEXT п 
460 INE 4: LET eme=0: FOR п=64 
TO 80: FLOT 146+ете, п: DRAW 44-( 
2Жете) „0: LET eme=eme+i: NEXT п 
470 INK LET ете=о: FOR п=111 
TO 90 STEF -1: FLOT 145+eme,n: 
DRAW 44-(2Жете),О: LET eme=eme+1 
3 NEXT п 

500 LET h=18: FOR n=13 TO 11 ST 
ЕР -1: РКІМТ РАРЕК 1; INK 4;АТ 
Nah; "а": LET h=h+1: NEXT п 

502 LET h=23: FOR n=13 TO 11 ST 
ЕР -1: FRINT РАРЕК 4; ТМК 6; АТ 
nh" B": LET h=h-1: NEXT п 


504 LET h=18: FOR пе TO 10: 
INT FAFER 1; 


PR 
INK Z;AT nhy" в" 


FOR n=8 TO 
INE 5 АТ п, 
NEXT n 


RESTORE 530 
512 FOR n=1 TO € 
514 READ a,b: FR 


OVER 


SINT OVER АТ a-1,b3" 
IF 2 (п) =22 THEN PRINT 
ЗАТ "Ы" АТ 

524 IF n=& ТНЕН Ч 


Hegramas 


NEXT n 

DATA 13,27,11,31,9,27 
DATA 9,14,11,10, 
RESTORE 550 

540 FØR n=1 TO 6 


542 READ а,б: PRINT OVER 1;АТ 
a,b; "ЕЕ" 

544 ТЕ n= THEN FRINT РАРЕК 4 
зат a by "EF" 

546 IF THEN: FRINT FAFER 2 


ЗАТ abp" Е" 
548 МЕХТ п 
550 DATA 4, 
1,20,17,22 
560 60 тп 800 
600 FOR п=0 TO 


144,n: 


56 STEF В: PLOT 
DRAW 48,0: NEXT п 

610 FOR n=120 TO 175 STEF В: PL 
OT 144,п: DRAW 48,0: NEXT п 

620 FOR n=80 TO 136 STEF В: FLO 
T п, 64: DRAW 0,48: NEXT п 

630 FOR n=200 TO 255 STEF 8: PL 
ОТ п, 64: DRAW 0,48: NEXT п 
640 FLOT 143,0: DRAW 0,63: 

192,0: DRAW 0,63 

644 NEXT п 


FLOT 


645 FLOT 142,175: DFAW О,- В 
LOT 192,175: DRAW 0,-63 
650 FLOT 80,64: DRAW 63,0: FLØT 


80,112: DRAW 63,0 

655 PLOT 192,64: DRAW 63,0: FLO 
Т 192,112: DRAW 63,0 

660 FLØT 80,0: DRAW 0,175: DRAW 
175,0: DRAW 0,-175: DRAW -175,0 
670 PLOT 255,80: DRAW -63,0: FL 
ОТ 255,96: DRAW -63, 

680 PLOT 80, 80: DRAW 63,0: PLOT 
80,96: DRAW 63,0 

690 FLOT 159, 
175,0: DRAW 0,63 

700 PLOT 159,175: DRAW 0,-63: Р 
LOT 175,175: DRAW 0,-63 

710 RETURN 

ВОО FOR n=15 TO 25 STEF 10: 
CLE 111,32,n: NEXT п 

805 FOR n=15 TO 25 STEP 10: CIR 
CLE 223,32,n: NEXT п 

810 FOR n=15 TO 25 STEP 10: 
CLE 223,143,n: NEXT п 


DRAW 0,63: FLOT 


CIR 


CIR 


0,4,18,17,18,2 


815 FOR n=15 TO 25 STEF 10: 


CIR 
CLE 111,143,n: NEXT n 
820 FRINT INK 1;АТ 17,133" ты"; 


AT 18,13 "ко" 
825 PRINT INK 4;АТ 17,273" Tu"; 
АТ 18,27; "къ. 
БО аа INE 
Т 4, 27; "KL" 
83 Б FRINT ІМК 


63 AT 


MIA 


ZJAT 2, 


зр" те"; А 


T 4,137 "EL" 

900 FOR n=1 TO 4: PRINT PAPER 
4; INK О;АТ 7+п,2;п: FRINT РАРЕ 
R 4; INK 7ҙАТ 7+n,6; МЕХТ п 


950 FOR n=1 ТО 4: 
23 INK 7АТ 13+n 
ER 2; 


FRINT FAPER 
п: FRINT РАР 
INK 7;АТ 13+п,6;" мы": NEXT 


п 

960 GO SUB 600 

1000 INK O 

1010 DIM s(4): DIM t(4) 

1020 FOR n=1 TO 4: LET + (п) =п: L 
ET 5(п) еп: NEXT п 
2000 REM TIRADA 

2001 OVER 1: FLOT 24, 
‚4: DRAW 24,0: DRAW 
-7,-4: FLOT 48,152: 
ЕК О 

2004 (ЕТ tur=0 


DRAW 7,4: OV 


2008 IF tur=0 THEN PRINT FAFER 
4AT 19,1; "TU TURNO" 
209 IF tur=1 THEN PRINT РАРЕК 
19,15 "MI TURNO" 
5 LET cant=INT (RNDX4)+7 


FOR r ТО cant 

ВЕЕР 0.02,10 

LET tir=INT (FNDX6)+1 
60 SUB 9000+(10Itir) 
FAUSE 20 

NEXT n 
2061 ВЕЕР 0.5 
2065 IF cosie 
о 

2067 IF cosies=1 THEN 60 ТО 700 
о 

2070 IF comiet=0 THEN GO TO 250 
о 

2080 IF comies=0 THEN GO TO 270 
о 

2100 IF tur=0 THEN 60 ТО 3000 
2110 IF tur=1 THEN 60 ТО 7000 


THEN 60 TO 300 


2500 КЕМ FRIMERA TIRADA JUGADOR 
2510 LET comiet=1 

25920 IF ti 5 THEN LET t(1)=9+ 
tir: LET tur=1: GO TO 2600 

2550 IF tir=5 THEN LET t(1)=93 


LET + (2) #9: LET tur=1: 50 ТО 255 
о 

2600 PRINT АТ y(t (19,1), (t(1),1 
Урна" 


2605 60 SUB 606 

2610 LET c(t(1))=11 

2620 IF (t(1)-4)210 THEN FRINT 

PAPER 4; INK OAT 8,6; "0"; (+ (1) 

-4) 

2630 IF (t(1)-4)>=10 THEN PRINT 
PAPER 4; INK О;АТ 8,6; (t(1)-4) 

2635 IF tir=6 THEN LET seist=1: 

LET cosiet=1: GO TO 2004 

2636 LET casat=1 

2640 GO TO 2005 

2650 PRINT РАРЕК 4;АТ y(t(1),1) 

ХЕ (19,10 ЗАТ yt (Z),Z)yx(t( 

2),2)5"Q" 

2655 60 SUB 600 

2660 LET c(t(1))=13 

2670 FRINT PAPER 4; 

63 "O"; (Е (1)-4) 

2675 PRINT РАРЕК 4; 

b; "O"; (t (2) -4) 

2680 LET casat=2: GO TO 2005 

2700 REM PRIMERA TIRADA SFECTRUM 

2710 LET comies=1 

2720 IF tir<>5 THEN 

+tir: GO TO 2800 

2730 IF tir=5 THEN LET s(1)=43: 
LET s(2)=43: GO ТО 2900 

2800 PRINT AT y(s(1),1),x(s(1),1 

ҮШ 

2805 60 SUE 600 

2810 LET c(s(1))=1 

2815 LET r(1)=1 

2820 PRINT FARER 2; INK 7;АТ 14 

i "SAT 14,6; (s(1)-4) 

2825 INK O 

2830 IF tir=4 THEN LET se 

LET совіевті: LET tur 

2005 

2850 LET casassli: 60 ТО 2004 

2900 FRINT РАРЕ! INK OAT y( 

S(1),1)3x(S(1),1)3 "RYSJAT у(в(2), 


INK OJAT в, 


INK о; ат е, 


LET s(1)=43 


? 60 SUB 600 

2910 LET c(s(1))=3 

2916 LET r(1)=1: LET ri2)=1 

2918 FRINT РАРЕК 2; INK 7;АТ 14 

„6; (в(1)-4) 

2919 FRINT 

sos (S (7) -4) 

2920 INK О 

2930 LET casass=2: 60 TO 2004 

3000 REM TIRADA DEL JUGADOR 

3001 IF tir<>6 THEN LET cosiet= 

о E 

3003 LET perst=0: LET tras=0: LE 

T pos=1: LET contt=0 2 

3005 IF tir=5 THEN GO TO 5000 

3006 IF tir=6 THEN LET seist=se 

ist+1 

3007 IF seist=3 THEN LET seist= 

0: GO ТО 4510 

3008 FOR n=1 ТО 4: IF tím)<5 THE 

N LET contt=contt+1 

3010 NEXT n 

3015 IF contt=4 THEN LET tur=1: 
60 ТО 2008 

3016 IF contt=0 AND tir=6 THEN 

LET tir=7 

3017 DIM h(4) 

3020 INPUT "Que ficha mueves ? 
";+% 

3021 IF CODE 4%<48 OR CODE +#%>52 
THEN GO ТО 3020 

3022 LET fic=VAL f$ 

3023 IF fic=0 THEN IF tir=6 OR 
tir=7 THEN GO TO 2004 

3024 IF fic=0 THEN LET tursti: б 

0 TO 2008 

3025 IF t(fic)=99 THEN FRINT +0 
¡"Esta ficha termino": PAUSE 25: 

50 то 3020 

3086 LET paso=0 

7 FOR mst(fic)+1 ТО t(fici+ti 


РАРЕК 2; INK 7;АТ 15 


г 
3028 IF с(п) =5 OR с(п) > 
LET разо=1 


2 THEN 


n 
GO TO 3600 


Оте) 
THEN FRINT = 0 


Heqramas 


te en casa": FAUSE 100: GO TO 30 
20 

3060 IF tlfic)+tir:80 THEN 
T "Te sales": FAUSI 


PRIN 
100: 60 T 


3080 | LET tific)atific)+tir 

3100 IF cant) 1 THEN LET pos= 
LET с (ап) GU TO 3140 

3108 IF cant THEN LET pos= 
2: LET сейв) 
3110 IF cant 
1: LET cant 
3115 IF cant 
1: LET c(ant) 
О IF cliant 
LET c(ant 
3140 LET seg FOR n=1 TO 12 
3145 IF ant-4=z(n) THEN LET 
ша: LET n=12 

3150 NEXT п 

2151 LET рар=7: LET ppap=7 
3154 IF t(fic)372 THEN LET рар= 
4 


A pos= 
60 TO 3140 
1 THEM LET pos= 
60 TO 3140 

2 THEN LET pos= 


seg 


3155 ТЕ ant:72 THEN LET ррар=4 
3165 IF seg=0 THEN PRINT РАРЕК 
ррар;АТ y(lant,pos),klant,pos);" 


3166 IF seg+0 THEN 60 ТО 4000 
3170 IF t(fic)=80 THEN GO TO 89 
оо 

3200 IF c(t(fic))=1 THEN LET pp 
=1: BEEF 1,1: 60 TO 4000 


3210 IF cit(tic))=2 THEN LET pp 
#2: ВЕЕР 1,20: 60 TO 6000 

3220 LET pos=1 

3225 IF c(t(fic))=0 THEN LET с( 


t(fició=11: LET pos=1: 60 TO 330 
о 

3230 IF O dl THEN 
EEG 


LET: © 
LET роз=2: GO TO 330 


3240 IF c(t(fic))=2 THEN LET cr 
t(fic))=211 LET роѕ=1: GO ТО 330 
о 
5255 IF c(t(fic))=11 THEN LET с 
(tøfic))=13: LET pos=2: 60 TO 33 
оо 
3260 IF c(t(fic))=12 THEN LET с 
(t(fic))=13: LET pos=1: 60 TO 33 
00 


3300 PRINT СРАРЕК pap; OVER 1;AT 


y (t(fic),pos),x x (t (fic), pos); "ar 
3301 GO SUB 600 ж 


3309 IF (&(#1с)-4)<10 THEN FRIN 
Т РАРЕК 4; INK OJAT 7+#1с,6; "0" 
s(tific)-4) 

5210 IF (t(fic)-4) 10 THEN FRI 


МТ РАРЕК 4; INK 
(fic)-4) 

О IF tir=4 OR tir=7 THEN GO 
2004 


О;РАТ 7+fic,oj + 


seist=0 
2005 
К No puedes 
pasar" 
3605 FAUSE 20 
i = LET seist=0 


i LET vuel=0 
FOR п=1 TO 4 
3625 IF tn) 24 AND h(n)=0 THEN 


LET умеіші: LET n=4 

ХТ n 

ТЕ vuel=1 THEN GO TO 3070 

BEEF 1,1 

FALSE 100 

ЕТ paso: LET tur=1: 60 T 
2000 REM БЕС. SEGUROS 
4001 IF z(seg)=% THEN LET рар=4 

60 TO 4010 

4003 IF х (ѕед) =22 THEN LET pap= 
é: GO TO 4010 
4008 IF z(seg)=39 THEN LET pap= 


60 ТО 4010 
7 ТЕ z(seg)=564 
1; 60 TO 4010 


THEN LET рар= 


LET cog 
РОБ n=1 ТО 
IF z(seg)= 


СЕТ rec=0 


thi THEN LET са 


4050 
4060 
4100 РОК п=1 ТО 
4110 IF (kícog+24))=pos THEN LE 
Т recan 

4114 LET cog=cog+4 


со TO 410 


THEN 


© 


4120 NEXT n 


1 THEN GO TO 4200 
2 THEN 60 TO 4210 
4200 FRINT ҒАРЕК рар;АТ y(ant,p 
05) px (ant, pos) з "Jd" 
4205 LET pap=7: GÖ SUB 600 

206 IF perst=1 THEN GO TO 4800 
4207 IF perss=1 THEN GO TO 4895 
4208 IF tras=0 THEN GO TO 2170 
4209 IF tras=1 THEN GO TO 7405 
4210 FRINT РАРЕК рар; АТ y(ant,p 
os), х (ant, ров); 
4215 LET pap= GO SUB 600 

4216 IF perst=1 THEN GO TO 4800 
4217 IF perss=1 THEN GO TO 4895 
4218 IF tras=0 THEN GO TO 3170 
4219 IF tras=1 THEN 60 ТО 7405 
4220 FOR n=1 TO 2 
4225 ЧЕ (k(cog+24))=pos THEN LE 
Т гес=п 
4230 LET cog=cog+6 
4240 NEXT п 
4245 IF rec=1 THEN 60 TO 4270 
4250 IF rec=2 THEN GO TO 4330 
4270 FRINT FAFER рар;АТ y(ant,p 
05) ‚х (апЕ, ров); "Е" 
4295 LET рар=7: 60 SUB 600 
4300 IF perst=1 THEN GO ТО 4800 
4301 IF perss=1 THEN 60 TO 4895 
4304 IF tras=0 THEN GO TO 2170 
4505 IF tras=1 THEN GO TO 7405 
4330 FRINT FAFER рарҙАТ y(ant,p 
05) yx (ant; pos #" 
4495 LET рар GO SUB 600 
4500 IF perst=1 THEN 60 ТО 4800 


4501 IF perss=1 THEN GO TO 4895 
4504 IF tras=0 THEN GO TO 3170 

4505 IF tras=1 THEN GO TO 7405 

4600 REM TRIFLE SEIS 

4610 LET perst=1 

4615 INFUT "Que ficha pierdes 7" 
зръ 

4616 ТЕ CODE р%<49 ОК CODE р > 
ТНЕМ 60 ТО 4615 

4617 LET fip=VAL p$ 

4620 IF &(#1р)<5 THEN PRINT *0; 
"Esa ficha ya esta en casa": FAU 
SE 30: GO TO 4610 

4625 LET ant=t(fip) 

4630 LET t(fip)=fip 

4640 FRINT ҒАҒЕК 4; INK 7;AT 7+ 
41р,6; "MN" 

4650 IF c(ant)=11 THEN 
1: LET ciant) =с GO TO 


4655 IF c(ant)=1% THEN pos= 
2; LET c(ant)=0: 60 TO 
4660 ТЕ c(ant THEN pos= 
: ЕТ cant) 60 TO 4750 
ТЕ с(ағ% 


1: LET c(ant) 
4670 ТЕ c(ant 
LET с(апё) =1 


LET seg= FOR п=1 ТО 17 
4755 IF ant+4=2 (п) THEN LET seg 
an: LET п 
4760 МЕХТ п 
4770 IF «ез THEN 60 ТО 4000 


4790 IF seg=0 THEN FRINT AT y(a 
ПЕ, ров), х (апё, ров) з" " 

4795 GO SUK 600 

4797 LET casat=casat-1 

4800 LET tur=1: GO TO 2005 

4810 REM TRIFLE SEIS 

4815 LET ans=0; LET sas=0: LET р 


4820 FOR n=4 TO 1 STEF -1 

4825 IF s(n):4 THEN LET sas=n: 
LET n=1 

4830 NEXT n 

4835 LET ans=s(sas) 

4836 LET s(sas)=sas 

4837 LET r(sas)=0 

4840 IF c(ans)=1 THEN LET pos=1 
: LET c(ans)=0: GO TO 4875 

4842 IF c(ans)=2 THEN LET pos=2 
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і LET c(ans)=01 60 TO 4875 

4844 IF c(ans)=3 THEN LET pos=1 
з LET ct(ans)=2: GO TO 4875 

4846 IF c(ans)=21 THEN LET pos= 
2: LET clans)=11: 60 TO 4875 
4848 IF c(ans)=22 THEN LET pos= 
1: LET с (апз) 
4875 LET seg=0: РОК n=1 TO 12 
4880 IF ans-4=z(m) THEN LET seg 
=n: LET n=12 

4882 NEXT п 

4885 LET ant=ans 
4890 IF se THEN 
4892 IF seg THEN 


GO TO 4000 
FRINT AT у(а 


ns,pos),x(ans,pos)3" " 
4893 60 SUB 600 
FAFER 2 


4895 FRINT 
+5аѕ, 6" м 


INK 7ҙат 13 


499$ STOF 

5000 КЕМ SALIDA DE CASA 
5005 LET nt=0 

5010 IF casat=4 THEN GO 
5 IF с(9):15 THEN 60 
О FOR s=1 TO 4 
5 IF %(6)<5 THEN 
s=4 

5038 NEXT в 

5040 IF nt THEN LET tint)=9 
ЗО ТЕТІ ) THEN 2109: 
5044 LET fic=nt 

5050 IF © (9) THEN LET рр=1: 6 


БЕТ позна L 


0 TO 6120 
5052 IF с(9) =21 THEN LET рр=2: 
60 TO 6120 

5054 IF c(9)=22 THEN 
60 TO 6120 

5060 LET casat=casat+1 
5080 IF c(9)=0 
з LET рг=1: 60 
083 IF c(9)=1 


LET pp=1: 


THEN ГЕТ с(9)-22 
LET pr=2: 60 TO 5200 
090 IF с(9) =2 THEN LET c(9)=2 


gade fe (л 


LET pr=1: GO TO 5200 
5145 IF c(9)=11 THEN LET c(9)=1 
: LET рг=2: 60 TO 5200 

150 IF с(9)-12 THEN LET c(9)=1 


LET pr=1 
20 РАТМТ 
(9 pr); "а" 
205 60 SUB 600 
5210 PRINT РАРЕН 4; 
nt, 6 "05" 

5900 LET tur=1; 60 ТО 2005 

6000 REM COMIDA DEL JUGADOR 

6010 LET comidt=0: LET mov=1 
6100 FOR №=1 TO 12 

6105 IF (t(fic)-4)=z(n) THEN LE 
T comidt=1 

6110 NEXT n 

6115 IF comidt=1 THEN IF pp=1 Т 
HEN LET pos=2: GO TO 3225 

6117 IF comidt=1 THEN IF pp=2 Т 
HEN LET pos=1: GO TO 3225 

6120 FOR n=1 TO 4 
6125 IF s(n)=t (fic) 
ven: LET n=4 

6130 NEXT п 

6135 LET s(mov)=mov 
6136 LET r(mov)=0 
6140 LET casass=casass-1 

6150 PRINT AT y(t (fic),pp)yx(t (+ 
іс) „рр); "at 

6160 LET с(+ (#1с)) грр+ 10 

6165 PRINT РАРЕК 2; INK 7; АТ 13 
+mov, Фр" мн" 

6166 50 SUB $00 

6167 ТЕ t(fic)>=14 THEN PRINT 
PAPER 4; INK О;АТ 7+#1с, 6; + (#1с) 
-4 

6168 IF t(fic)*14 THEN 


PAPER 4;АТ y(9,pr),x 


INK ОАТ 7+ 


THEN LET mo 


FRINT F 


© 


APER 4; INK OAT 7+fic,os"O"stif 
іс)-4 Е 

6170 LET tir=20: 60 TO 3020 

7000 REM TIRADA DEL SPECTRUM 
7003 LET perss=0: LET pap=7: LET 


tras=1: LET fics=0: LET роѕ=1: 
LET conts=0 

7008 ТЕ tir=5 THEN 60 TO 7500 
7006 IF tir=6 THEN LET seiss=se 
ізеті 

7007 ТЕ =2155=2 THEN КЕТ selss= 
O: GO TO 4810 

7008 FOR n=1 TO 4: IF «(п)<5 THE 


№ LET cont 
7010 NEXT n 


onts+1 


7015 IF comts=4 THEN LET tur=01 
BEEF 1,20: GO TO 2004 
7 IF conts=0 AND tir=6 THEN 


LET tir=7 
7100 DIM b(4): 
у: DIM p(4) 
7110 FOR n=1 TO 4 
7 FOR s=1 TO 12 


DIM о(4): DIM а(4 


IF ((s(n)-4)+tir)=z(s) THEN 
|. о(п)=1 
7140 NEXT s 
7150 NEXT п 
7155 IF tirs9 THEN -60 TO 7200 


7160 РОК n=1 ТО 4 н 
7180 ТЕ = (п AND (s(n)+tir) 
8 THEN LET trus=(s(n)+tir)-38: 
LET bin) =78+trus 


7190 IF Ь(п) <=87 THEN 


ШЕТ b(n)= 


o 
7193 NEXT п 
7200 IF tir=6 OR tir=7 THEN ВО 


TO 9200 
FOR w=1 TO 4 
7. FOR n и) +1 ТО s(w)+tir 


7233 IF s(w=72 THEN GO TO 7236 


7234 IF п>87 THEN LET а(м)<1: G 
0 ТО 7240 

7236 IF п<87 THEN ТЕ с(п)-2 OR 
с(п) 212 THEN LET q(w)=1 


7238 NEXT n 
7240 NEXT и 
7250 FOR j=1 TO 4 

IF b(3)=0 THEN 
ND q(3)=0 THEN 


IF г(3)=1 а 
ТЕ о(3) =0 THEN 


IF c(s(j)+tir)=11 OR ci(s(j)+tir) 
=12 THEN LET p(3)=4 

260 IF s(j)+tir=87 THEN LET pi 
3) =2 ү 
7265 NEXT j 

7280 РОК п=1 ТО 4 


7282 IF р(п)-4 THEN LET fics=n: 
LET n=4 

7284 NEXT n 

7286 IF fics:0 THEN GO TO 7320 


7290 FOR n=1 ТО 4 


7292 IF р(п)-? THEN LET fics=n: 
ШЕТ 

7294 

7296 во то 73 
300 

7301 IF bln)=0 T 
HEN AND а(п) #0 THEN 


0 ҮНЕМ, ЖЕТ fic LET: 
п=4; GO ТО 7304 
7502 ТЕ ben ) THEN IF sin 99 


THEN ІР е (п) =1 AND а(л) #0 THEN 
IF (п) +017587 THEN LET fics= 
LET n=4 
24 МЕХТ п 


7314 IF fics=0 THEN IF 
tir=7 
ов 


THEN LET tur=1: GO TO 20 


IF fics=0 


THEN 
165) 
5(+1с5) #6 1 


со та 2004 


LET trus= 
IF апв>79 THEN 60 TO 


о 
TH 
© (+ 


LET 


Т IF (fic 
LET $ (+ 8 

ТЕ cl T pos=1 
7370 


21 THEN LET pos= 
1: GO TO 7370 
22 THEN LET pos= 


: LET c(ans)= 
7368 IF c(ans) 
1: LET c(ans)=12 

7370 LET seg FOR n=1 TO 12 
375 IF ans-4=z (n) THEN LET seg 
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=n; LET n=12 
7380 NEXT n 


7381 LET ppap=7 

7385 IF s(fics)>79 THEN LET pap 
7387 IF ans:79 THEN LET ppap=2 
7590 IF seg=0 THEN PRINT РАРЕК 


ррар;АТ у(апв,ров) „к (апв,ров);" 


7400 ТЕ seg>0 THEN LET ant=ans: 
GO TO 4000 

7405 IF s(fics)=87 THEN GO TO 8 
800 

7420, IF c(s(fics))=11 AND o(fics 
)=0 THEN LET ps=1: GO ТО 8500 
7425 IF c(s(fics))=12 AND o(fics 
)=0 THEN LET ps=2: GO TO 8500 
7430 IF c(s(fics))=0 THEN LET с 
(s(fics))=18 LET pos=1: GO TO 74 
во 

7435 ТЕ c(s(fics))=1 THEN 
(s(fics))=3: 
80 

7440 IF c(s(fics))=2 THEN 
(s(fics))=3: 
80 

7450 IF c(s(fics))=11 AND o(fics 
)=1 THEN LET роѕ=2: LET c(sific 
s))=21: GO ТО 7480 

7460 IF c(s(fics))=12 AND о(#1св 
)=1 THEN LET роѕ=1: LET c(s(fic 
s))=22: 60 ТО 7480 

7480 PRINT PAPER рар;АТ у(= (іс 
S), pos), х (s(fics), pos); "Е" 

7481 GO SUB 600 

7482 IF (s(fics)-4)%10 THEN РЕТ 
NT PAPER 2; INK 7; АТ 13+fics,4; 
"О"; (s(fics)-4) 


LET с 
LET pos=2: GO TO 74 


БЕТ EG 
LET pos=1: GO TO 74 


7485 IF (s(fics)-4)>=10 THEN РК 
INT PAPER 2; INE 7;АТ 13+fics,å 
$ (s(fics)-4) 

7487 INK О 


7488 IF tir=6 OR tir=7 THEN LET 
tur=1: GO TO 2008 

7489 IF +1г<6 THEN LET seiss=0 

7490 GO TO 2004 

7500 REM SALIDA CASA DE SF 

7505 LET п 
7510 IF са 


ѕ=4 THEN 


50 TO 710 


THEN 


во то 7100 


LET пешті L 


THEN LET sins)=4" 


THEN LET ре 
7605 IF с(423-?1 THEN LET ps=1: 
GO ТО 8405 
7610 IF c(47)=27 THEN LET på 
GO TO 8605 
7640 LET сазазз+1 
7706 ТЕ с THEN 


LET с (47) = 
TO 7906 
THE 


7704 IF с(4 THEN 
TO 7900 


THEN 
THEN 
во TO 

2р INE 


INK 73AT 13 


+пв, 6 
7999 GO TO 
8500 REM COMIDA DEL SFECTRUM 
8510 LET comids=0: LET mos=1 
8520 FOR N=1 TO 1% 


(9 


9050 сори АТ 3 


8540 ТЕ (в(#1с6)-4) == (n) THEN L 
ET comids=1 

8550 NEXT М 

8570 ТЕ comid THEN LET о(#3с 
)=1; GO TO 7450 

8605 FOR п=1 TO 4 

8610 ТЕ tin)=s(fics) THEN LET m 


os=n: LET n=4 

8615 NEXT п 

8625 LET t(mos os 

ra LET casa sat-1 
38 FRINT FAFER 2; 

AE Ы ала 

8640 РКІМТ FAFEF 4; INK 7;AT 7+ 

mos, 63 мы" 

8650 РКІМТ АТ y(s(fics),ps), 

tics) ра) в "е" 

8655 GO SUB 600 

8660 LET c(slfics))=ps-10 

8700 LET tir=20: 60 ТО 7000 

8800 REM FINAL FICHA 

8810 LET s(fics)=99 

ВАЛО FRINT КАРЕК 23 INK 7;AT 13 

+#1св; 6; "ОЕ" 

8870 LET gans=gans+1 

8880 60 SUB 600 

8885 IF gans=4 THEN 60 TO 9500 

8890 LET tir=1(C 60 TO 7000 

8900 LET t(fic z 

8910 NT PAPER 4; [Hk 

me" 

gant=gant+1 

вето 60 SUB 600 

8940 IF 

8950 1 

8999 


«(st 


ОРАТ 7+ 


та 5 


055 + RETURN 

9200 LET puens=0 

5 FOR n=1 TO 4 

9210 IF с(е(п))+ 3 THEN IF sin)+ 
tir<88 THEN IF q(n)=0 THEN LET 
puens=n+* LET n=4 

9220 NEXT n 


0 THEN 
puens: GO TO 7320 
9240 IF puens=0 THEN 60 TO 7220 
9500 REM FINAL 


LET fics= 


9505 IF gant=4 THEN PRINT FLAS 
АТ. 8, 185" SAT 7185" 
"ЗАТ 10,183" "РАТ 11,18 
HAS "АТ 12,18;" "SAT 1 
18; "GANADO" 
9506 IF gans=4 THEN FRINT FLAS 
Н 13 АТ 8,18; " "KAT 9,183", 
TE АТ 10,183" "¡AT 11,48 
Ре НЕ "ar 125187" "SAT 1 


3, 18; "GANADO" 
9508 FOR n=1 TO 13: FOR d=40 TO 
50: ВЕЕР .O1,d: NEXT d: NEXT п 
9510 FOR n=5 TO 1 STEF -1 

9515 FOR s=0 TO 21 

9525 BEEF .01,ө%20: PRINT ІМК n 
3 OVER 1; АТ в, 0; " На 
EIA El 

9535 NEXT s 

9500 NEXT п 

9610 PAUSE 30 

9700 FOR n=1 ТО 22: 
O: PAUSE 10: 


ВЕЕР .01,п+2 
RANDOMIZE USR 3190: 


NEXT n 
9710 CLS 
9750 FOR п=1 ТО 22: ВЕЕР „02,п+ + 
О: PAUSE 10: RANDOMIZE USR 3190: 
NEXT n 


9770 FRINT FLASH 1;АТ 10,0; "Qui 
eres jugar otra partida s/n " 
9780 INFUT ;у$ 

9785 IF y$="s" OR y$="5" THEN С 
LS : GO TO 180 

9800 STOP 


8” А EGB 


AGRA 
ALONSO 
BELASCOS 
CELEMIN 
DURAN 
ELIAS 


FERNANDEZ 
GARCIA 
HERNANDEZ 


E 

10 КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖ ЖЖ ХХ 102 КЕМ ЖЕЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЖЕЖЖЖЖ 
* * ЖЖЖЖЖЖЖ INDICE ЖЖЖЖЖЖЖХ 
* XCREACION DE LISTAS DE ХХХ ЖЖК EEE ХХ 
x ж ALUMNOS ORDENADAS 103 
k Жж ALFABETICAMENTE 110 CLS : FOKE 23609,100: POKE 
x * 23658,8 
x Jaime Melendi 1984 120 FRINT 7-" INDI 
* * СЕ ==== 
х ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ зж 
ж 

50 DIM q$(7,1) 

60 DIM w$(1,25) Creacion del +i 

70 DIM % Chero ..... 1 

80 DIM Listado de un c 

90 LET x=0 оғва ...... 2 

100 60 SUR 7000 Listado total . 
а сз NE EG 3 


22 


Listas escolares 


El mes de septiembre ha sido el mes de la vuelta al colegio. 
Padres y chicos hacen cola en las librería, comprando el 
material; luego las matrículas... A continuación los 
profesores tienen que realizar un trabajo muy pesado. El 
programa que os presentamos ayuda a preparar e imprimir 


las listas escolares. 


Una de las labores más tediosas 
en la puesta en marcha de un año 
académico es, la confección de las 
listas de alumnos de cada curso, te- 
niendo en cuenta que debemos or- 
denarlas alfabéticamente para des- 
pués proceder a separar los distin- 
tos grupos. 

Hay que trabajar con una gran 
cantidad de información y realizar 
las oportunas manipulaciones 
para, al final, obtener el resultado 
apetecido. 

Pero el problema se agrava si 
cuando tenemos las listas prepara- 
das es necesario hacer alguna co- 
rrección o incluir algún alumno 
que se haya despistado. 

Teniendo en cuenta que las ca- 
racterísticas fundamentales de los 


Correcciones .. 


ordenadores son la velocidad y la 
fiabilidad para trabajar con gran- 
des volúmenes de información, en- 
carguemos a nuestro modesto 
Spectrum esta tarea. 

Este programa ha sido pensado 
para la confección de listas de cur- 
sos, ordenadas alfabéticamente, en 
un colegio de E.G.B., pudiendo 
adaptarse fácilmente a otro tipo de 
enseñanzas. 

Los registros estarán formados 
por los siguientes campos: 

1.* campo: Curso; tamaño: 1 ca- 
racter. 

2° campo: Apellidos y nombre; 
tamaño: 25 caracteres. 


3.* campo: Idioma moderno; ta- 
maño: I caracter. 


Ср 


4.° campo: Religión о ética; ta- 
maño: I caracter. 

5.9 campo: Curso anterior sus- 
penso o aprobado; tamaño: | ca- 
racter. 

6.2 campo: Repite si/no; tama- 
ño: I caracter. 

Longitud del registro: 30 carac- 
teres. 

El número total de alumnos que 
admite el programa, dada la capa- 
cidad de memoria interna del 
Spectrum, es de 900. El número 
máximo de alumnos por curso es 
de 100, lo que hace posible la in- 
troducción de 9 cursos de un máxi- 
mo de 100 alumnos por curso. 

La longitud del registro está con- 
dicionada por la capacidad de im- 
presión de la pantalla y de la im- 
presora ZX o SEIKOSA GP-505, 
es decir, 32 caracteres por linea. 

Para poner en marcha el progra- 
ma procederemos en primer lugar 
a teclearlo. Finalizada esta ardua 
labor haremos una copia del mis- 
mo en cinta de cassette. Å conti- 
nuación procederemos a ejecutar- 
lo, corrigiendo los posibles errores 


ЕЕ 4 1040 LET ks=" 
t Fin y Grabacion " 
.... 435 1050 LET q=0: LET м=0: LET е=0: 
О FAUSE © LET u=0: LET t=0: LET у=0: LET а 
O LET go=VAL ІМКЕҮФ 
150 IF got1 AND до>5 THEN БО Т 3 FRINT AT 7,145" "YAT 7,2 
о 130 "РАТ 11, 3 КАТ 13,113" 
160 60 ТО 1000Ждо JAT 13/26: "ат 15, зат" “ЗАТ 
299 О ан 
1000 КЕМ ЖЖЖЖЖЖЖКЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 1070 PRINT BRIGHT АТ 4,5;" Ul 
жжж CREACION FICHERO ЖЖ timo numero ";х;" " 
р SS 1080 LET r 
1001 k д 1090 INPUT "М. alumno "ух 
1010 CLS : FRINT АТ 0,5; "CREACIO 1095 IF x<=r-1 THEN GO ТО 1090. 
N DEL FICHERO" 1100 IF x=r THEN 60 TO 110 
1020 PRINT АТ 2,3; "РАКА SALIR RE 1110 FRINT AT 7,14; IF al=1 TH 


FITE NUMERO" 


EN GO TO 1230 
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que hayamos cometido. Una vez 
depurado lo grabaremos de nuevo, 
teniendo de este modo una copia 
del programa original, al que po- 
der recurrir en caso de necesidad. 
Para grabarlo es necesario hacerlo 
con «autorun» en la linea 100, es 
decir, SAVE «nombre» LINE 100. 
El procedimiento que utiliza el 
programa para almacenar los datos 
es el de introducirlos en variables 
subindicadas, vectores о listas, 
a$(900,30) para el archivo general 


1120_INFUT "Curso 
АТ 7,28;9%(1): 
TO 1230 


1130 FOKE 23658,0: 


THEN GO TO 1230 


1145 IF VAL q$(1)<6 THEN LET q$ 


"1а8(1)1 
ТЕ q=1 THEN GO 


INFUT 
dos y nombre, maximo 25 caracter 
es ";м$(1): POKE 25258,8 
1140 PRINT АТ 11,33u$(1): 


El trabajo de introducir y 
modificar las listas de 
alumnos, una tarea repetitiva 


A A AA ысы 
y b$(100,30) para el archivo del 
curso. Teniendo en cuenta que el 


comando RUN borra los valores 
de las variables no puede utilizarse 


FRINT 


"раб (6): 
"Apelli TO 1340 
ате el 


IF w=1 "pinc 


1 THEN GO TO 1230 
1230 INFUT 


1240 IF ge (6)="N" THEN 
п. de casilla incorrecta 


1250 IF q$(4) 


para ejecutar el programa cuando 
tenga datos, pues no los borraria. 
En caso de necesidad hay que utili- 
zar el comando СОТО 100; sola- 
mente ejecutaremos el programa 
con RUN para inicializarlo y co- 
menzara grabar los datos, es decir, 
la primera vez que lo empleemos. 
Ya está tecleado el programa. Lo 
hemos almacenado en cinta y que- 
remos comenzar a utilizarlo, Pul- 
samos RUN y elegimos la opción 1 
«Creación del fichero». Termina- 


(S/N) 


"TODO CORRECTO? 
IF q$(6)="5" THEN 60 
INFUT "D 


"З" AND q$(6)< 


м 


F " THEN BEEF .5,-12: GO TO 1230 
(2) "а": 60 TO 1160 1260 IF inc=1 THEN LET а1=1: 60 
1150 INPUT "Ingles (I), Frances TO 1090 
(Е) "sq$(2): IF q$(2)<>"I" AND а 1270 IF inc=2 TH = 
%(2)<>"Е" THEN ВЕЕР .5,-12: 60 то ей ВЕ rn сво 
ТО 1150 1 
1280 IF inc=3 Т =1: 
1160 PRINT AT 13,11398(2)1 IF е= Т0 130 з THEN LET is 60 
1 THEN GO TO 1230 1290 IF inc=4 THEN LET e=1: GO 
1170 INFUT "Religion (R), Etica TO 1150 
(E) Z): IF q$(3)<>"R" AND q e қ 
оо IF =5 ТІ =1: 
$ (3) THEN! ЗВЕРИ. BO 250015 ИХ GET USE ED 
та 1170: 1310 IF inc=6 THEN LET t=1: GO 
1180 PRINT AT 13,263q$(2): IF u= 70 1190 
1 THEN 60 ТО 1230 1320 IF inc=7 THEN LET y=1: 60 
1185 ТЕ q$(1)="1" THEN LET 48(4 то 1210 
=н, 
FEA Оо ОЙ В 1330 BEEF .5,-12: GO TO 1240 
UT "Curso anterior: Apro 1340 IF q$(5)="S" THEN LET q$( 
bado (А), Suspenso (5) $(4): Japo Я STARS 
IF q$(4)<>"A" AND q$(4)<>"5" THE 1350 IF q$(5)="N" THEN LET q$(5 
М ВЕЕР .5,-12: 60 ТО 1190 ЗАБ 7 


1200 PRINT AT 15,11;q$(4): IF t= 


1 THEN GO TO 1230 


1205 ТЕ q$(1)="1" OR q$(1)= 
R q$(1)="4" THEN ШЕТ 9% (5) 


60 TO 1220 


1210 INFUT "Repite el curso S/N: 
" AND q$(5 
)<>"N" THEN BEEF .5,-12: GO TO 


";а$ (5): IF qs (5) <: 


1210 


1220 FRINT AT 15,26;а$ (5): 


1360 LET a$(x)=q$(1)+w$ (1)+q$(2) 


+48 (3) +48 (4) +4 (5) 


1999 


0 1370 GO TO 1050 


2000 КЕМ OOOO 


2001 


2010 ВЕЕР 1,12: CLS : 
GHT 1;АТ 7,53" 


IF y= 


жюжж LISTADO CURSO жжжж 
ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


FRINT ВЕТ 


— 
DA TESE 
El programa nos pide el 
Idioma Moderno sólo si el 


alumno estudia segunda 
etapa de EGB 


do el trabajo de introducción de 
datos, por este día, vamos a la op- 
ción 5 «Fin y Grabación»; en esta 
opción procederá a grabar en cinta 


de cassette el programa con los da- 
tos introducidos y, posteriormente, 
a verificar la correcta grabación, 
dándonos en todo momento las 
instrucciones necesarias. Nos pre- 
guntará si todo ha sido correcto, 
contestando «no» repetirá el pro- 
ceso haciendo una segunda graba- 
ción como copia de seguridad, 
contestando «sí» el programa fina- 
liza. 

Para continuar cargando datos 
al programa es necesario leer el úl- 


в 


timo programa grabado, dado que 
tiene los datos almacenados ante- 
riormente. 

Creo que es importante advertir 
que el programa tarda más de tres 
minutos en grabarse, por lo que es 
necesario tener un poco de pacien- 
cia. En el caso de disponer de Mi- 
сгойгіуе es fácil adaptar el progra- 
ma a este periférico, consiguiendo 
una mayor velocidad y facilidad de 
grabación. 

Además de las opciones ya vis- 


"ТАТ 8,5;" LISTADO DE UN CURS 


в “ШАТ 9255" 


рага cont 


2240 PRINT ”””;"Ри1ее una tecla 


inuar" 


: INFUT "codigo del curso ";9% 2250 FOR n=1 TO q: LET b$(n)="": 
(73 NEXT п 
2020 INFUT "nombre del curso ";d 2260 PAUSE О 
$ 2270 GO TO 110 
2030 LET q=1 2279 
2040 FOR пя! TO x 2280 КЕМ ЖжжжжЖЖЖЖКЖЖКЖЖЖЖЖЖЖЖЖ 
2050 IF аФ (п) ( TO 1)=q$(7) THEN XXXX MATRIZ CURSO жжжжж 
GO SUB 2280 ЖЖ ЖЖ ЖЕ ЖЕ ЖЖ ЖЖ ЖЖ 
2060 NEXT n ; 2281 
2070 FOR s=1 TO 4-1 2290 LET b$tq)=a$ (n) 
2080 FOR т=з TO 2 STEF -1 2300 LET q=q+1 
2090 IF b$(m)>b$(m-1) THEN LET 2310 RETURN 
т-2: 2999 
2100 : LET b$(m)=b%( 3000 КЕМ ЖЕЖЖЕЖКККЖКИЖКИЖЕЖЖЕЖКК 
т-1): LET b$(m-1)=;% Жжжж LISTADO TOTAL: жжжж 
2110 NEXT т: NEXT в ЕЕКЖКЕЖКЕЖКЖКЕКЖЕЖЕЖЖЕЖК 
2119 3001 
2120 REM AMARA 3010 CLS 1 PRINT BRIGHT ЦАТ 7, 
жжжжжж IMPRESION ЖЖЖЖЖЖ 8; "FAT 8,83" LIS 
ЖЖ КЖ ЖЖ ЖЖ ЖЖ ЖЖ : 
2121 
2130 CLS 
2140 LET d=(32-LEN d$)/2 
2150 INFUT "Impresora S/N "; 
): ТЕ q$(6)<>"5" AND q$(6)< 
THEN GO TO 2150 i 
1 fichero ..... 1 
2160 IF q$(6)="S" THEN OFEN 22, Creseton del fichero 
„рн З 
2170 PRINT TAB 9198 Listado de un CUFSO ...... 2 
2180 PRINT **> 
2190 FOR 1=1 TO q-1 Listado total ............ 2 
2200 PRINT : IF 1910 THEN PRINT 
чи; Correcciones ............. 4 
2210 FRINT 1%" ";Ь%(1)(2 TO) 
2220 NEXT 1 Fin у Grabación .......... 5 
2230 CLOSE *^2 


НЕЕ 


tas, el programa dispone de otras 
tres: «Listado de un curso», que 
permite listar alfabéticamente los 
alumnos de un curso con sus datos; 
«Listado total», lista de los datos 
indicados en el mismo orden de 
entrada; y «Correcciones», que 
permite modificar los errores que 
hayamos cometido al introducir 
los datos. 

Comentaremos detenidamente 
la opción «Creación del fichero»: 
en la última línea de la pantalla, al 


objeto de poder comprobar que 
sean correctos. El número de 
alumno será el de matrícula, corre- 
lativo desde el 1 al 900. Para saber 
cual ha sido el último número uti- 
lizado, y no repetirlo, el programa 
nos lo indica. Basándonos en la 
imposibilidad de duplicación del 
número de alumno, saldremos de 
esta opción repitiendo el último 
empleado. El idioma moderno so- 
lamente nos lo preguntará en los 
cursos del ciclo superior. Solamen- 


Puede manejar hasta 900 
alumnos, con un máximo de 
100 por curso 


ERE EEE аган EEE 
te nos preguntará si es repetidor en 
los cursos en que puede suceder. 


Una vez introducidos los datos 
de un alumno, nos preguntará si 


TADO TOTAL "¿AT 9,85" 
" 


3015 INPUT 
", parte de 


THEN GO TO 3015 
3017 LET bi=1: 


)="P" THEN 
ғо "bli 
IF 62 THEN LET b2=x 


"Todos los datos ""T" 
ellos ""Р"" и; 
>: ТЕ q$(6)<>"T" AND ав(6)<>"Р" 


LET b2=x: 


3070 FRINT тұ" 
3080 NEXT n 

3090 CLOSE +2 
(6 3100 PRINT **>3 " 
a para continuar": 


"раз по 


Fulse una tecl 
FAUSE © 


3110 60 TO 110 


IF 4%(6 


3999 


INFUT "Desde el nume 
INFUT "Al numero ";Ь2: 


4000 КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЕЖЖЕЖ 
жжжж CORRECCIONES жжжжж 


3020 INFUT "Impresora S/N "; 
2: IF q$(6)<>"S" AND авсь)< 
THEN GO TO 3020 

3030 IF q$(6)="5" THEN ОРЕМ 22, 
пра 

3040 CLS : FRINT TAB 8;"LISTADO 
TOTAL" 

50 FRINT ғғ 

3080 FOR n=b1 то 62 


ATENCION 


En caso de que este programa se 
ROMFA en cualquier momento y 
quiera continuar ejecutandolo 


nunca pulse RUN pulse GOTO 100 


FULSE UNA TECLA FARA CONTINUAR 


ЖЖЖЖЖЖЕЖЖЖЖЖЕЖЖЕЕЖЖЖЖКЖ 


4001 

4210 CLS : PRINT АТ 1, 85" Fer 
—— еи 

4220 FRINT АТ 2,8; "и CORRECCIONES 
ғ 

4250 FRINT АТ 5,05 " Hem 
all" 

4240 GO SUB 7200 

4250 INFUT "М. alumno? "ус 

4260 LET 4#(1) =а% (с) ( TO 1): LET 

9$ (1) =а$ (с) (2 TO 27): LET q$(2) 


=а$ (с) (27 TO 27): LET q$(3)=a%(c 
) (28 TO 28): LET 9%(4) =а$ (с) (29 
TO 29): LET q$(5) =a$(c) (30 TO 30 
3%: IF аФ (5)=" " THEN LET q$(5)= 


THEN LET q$(5 


O FRINT AT 7,14;сҙАТ 7, 2834$ ‹ 
1AT 11, Зум ШЗАТ 13, 11;4$ (2); 
АТ 12,26:(%(2)АТ 15,11;49$ (42; АТ 


15, 5 (5) 
4280 IMFUT "TODO CORRECTO? (S/N) 
: IF q$(6)="S" THEN 60 


AND 9% (6)<>"N 
" THEN ВЕЕР 50 ТО 4280 
300 INFT "Dame el п. de casill 


son todos correctos y, en caso de 
tener algún error e indicarle que 
no, nos reclamará el número de ca- 
silla incorrecta, para proceder a 
efectuar la oportuna corrección. 

Por último, nos reclama el nú- 
mero de alumno, repitiéndose el 
proceso. Para salir de esta opción, 
repetiremos el último y el progra- 
ma vuelve al INDICE. 

En la opción «Listado de un cur- 
so», nos pedirá el código y el nom- 
bre del curso. Nos preguntará si 


Se puede imprimir una lista 
provisional, corregir los 
errores y sacar listas 
ordenadas inmediatamente 


queremos que el listado salga por 
pantalla o por impresora. 

Toma del fichero principal los 
datos de los alumnos del curso in- 


dicado, los introduce en el fichero 
de curso, los ordena alfabética- 
mente y los imprime. Habida 
cuenta que la ordenación la realiza 
antes de la impresión de los datos, 
es posible el incluir un alumno en 
el último momento en el fichero 
principal y obtener inmediata- 
mente la lista perfectamente orde- 
nada incluido el nuevo alumno. 
Finalizado el proceso retorna al 
INDICE. 

En la opción «Listado total», 


а incorrecta "¡inc 4375 IF цъ( "5" AND 8% (9) =>"М 
4316 IF inc=1 THEN . FRINT BRIGH " AND q$(5 *" THEN ВЕЕР „5,1 
T 1AT 19,13" El numero no puede 2: GO TO 4 3 
cambiarse ": ВЕЕР 2,24: FRINT А 4380 BEEF .5,12: GO TO 4280 
T 4952 4590 IF q$(5)="5" THEN LET qs (5 
": GO TO 4280 ) Ы 
320 IF inc=2 THEN INPUT “Curso 4400 IF qs(5)="N" THEN LET q$(5 
; FRINT АТ 7,283q8(1): G ) 


О IF inc=3 THEN 
: INFUT "Apellidos 
imo 
АТ 11,35w$ (1): 
4340 IF inc=4 THEN 
s (I), Frances (Е) "3; 
Т AT 13,113q8(2)3 
Е 4% (2) + "Е" 


2: 60 TO 4340 
4350 IF inc=5 THEN 
ion Etica (E) 


(5), 


4355 IF g$(3)4>"R" 
" THEN ВЕЕР .5,12: 
4360 IF іпс=6 THEN 


FOKE 23658, 0 


25 caracteres"3w$(1): 
РОКЕ 23658,8 
INFUT "Ingle 4 
аз(? 
ТЕ 9%(2)= 
THEN GO TO 4280 Е 
4345 IF q$(2)<>"F" AND q$(2)<>"1 
" AND qs$(2)<>"x" THEN ВЕЕР. .5,1 


AND q$ 
60 TO 43 
INFUT 


4410 LET a$(c)=q$(1)+w$(1)+q8(2) 


FRIN el 
a] 


4999 


INFUT "Relig 
";а%‹ 
IF así 


FRIN 


5001 


ТЕ Ф (5) ж"М" 


4440 FRINT АТ 7,144" 
5" "¡AT 11, Зу карат 12 
jr Е Е т" 


+48 (3) +а8 (4) +ав (5) 


y nombre, max 4420 INFUT "MAS CORRECCIONES? 5/ 
FRINT N "ҙа%(6): ТЕ 48(6)<7"6" AND (4% 
N" THEN GO TO 4420 


THEN GO TO 11 


4450 60 ТО 4250 


5000 КЕМ ЖЖХЖЖУЖЖАЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
Жжхжжя GRABACIÓN жжжжжж 
ЖЖХЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖЖЖЖЖЖ 


5010 LET рФ=" 


anteriors Aprobado (Ay Su = 5020 CLS : PRINT BRIGHT 1;АТ 5, 
о (5) "sqs(4): NT АТ 15, 11;9% 24" desconecte la clavija EAR " 

(4): IF qs (4)="A" ОК g$(4)="5" T АТ 9,5;рз;АТ 10,5;" FREFARE EL С 
НЕМ 60 ТО ASSETTE "¿AT 11, Бзрезат 12,5;" 
4355 IF qs (4) "а" AND q$(4)< РАКА GRABAR АТ 15,5;р% 
" AND 4%(404>"%" THEN ВЕЕР 5030 SAVE "LISTAS" LINE 100 
2: GO TO 4360 5040 FRINT AT 18,75" FARE EL CAS 
4370 IF inc=7 THEN INFUT "Repit SETTE ": ВЕЕР 2,24: PAUSE 200 
е el curso S/N "¿qs(5): PRINT АТ 5050 CLS : PRINT BRIGHT 1;АТ 5, 
15,26;4%(5): IF q$(5)="S" OR q$ 33" conecte la clavija EAR "¿AT 


(5)="N" THEN 


60 то 42 


9.5ір%;АТ 10,5;" 


REBOBINE LA СТ 


"Идома 


nos preguntará si queremos todos Rc alumno y escribirá todos sus da- 


los datos o parte de ellos. Si hemos 
optado por un listado parcial nos 
preguntará el primer número a lis- 


tar y el último. Como en la opción La carga del programa 


anterior, es posible hacer un lista- con los datos 
do por pantalla o por impresora. 
Finalizado el proceso regresa al 
INDICE. 

Opción «Correcciones», este 
próceso es similar al de «Creación 


tarda unos tres minutos 


tos en las casillas correspondien- 
tes. Nos preguntará si todos los da- 
tos son correctos, indicándole que 
no nos pedirá el número de casilla 
incorrecta y haremos las correccio- 
nes oportunas. Preguntará, por úl- 
timo, si queremos hacer más co- 
rrecciones o no. Contestando que 
no, retornará al INDICE. 


del fichero». Preguntará el número a Jaime Melendi 48K 


NTA "ЗАТ 11,5;рФҙАТ 12,55" 
PULSE PLAY "ЗАТ 13,53p 
14,53" РАКА VERIFICAR 
15,5ірФ 
5060 VERIFY "LISTAS" 
5070 CLS : PRINT AT 18,73" FARE 
EL CASSETTE ": BEEF 2,24 
5080 INPUT "TODO CORRECTO? S/N " 
348: IF 465245" AND +%<>"М" THEN 
GO TO 5080 
5090 IF f$="S" THEN CLS : POKE 
23658,0: GO TO 9999 
5100 GO TO 5000 
6999 
7000 КЕМ жжажжжжжжжжжкжижжижижжк 
жжж RUTINA DE ЖЖЖЖЖЖ 
ЖЖЖ PRESENTACION жжжжжж 
ЖЮЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


Ат 


7001 

7010 CLS : PRINT АТ 2,103 FLASH 
1" ATENCION " 

20 BEEP 2,12 


"Еп caso de que e 
ROMPA en cualqu 
quiera continua 


ste programa se 

ier momento y 

г ejecutandolo" 

7040 PRINT ” INVERSE 1; “nunca pu 

lse RUN"; INVERSE 03" "i BRIGHT 

1;" pulse GOTO 100 " 

7050 PRINT ***"";" PULSE UNA TEC 

LA PARA CONTINUAR" 

7060 FAUSE 0 

7070 RETURN 

7199 

7200 REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖКЖ 
ЖЖЖЖЯЖ RUTINA DE XKXXAXKkXk 
жжжжжж PANTALLA > жжжжжж 
ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖКЖ 


7210 FLOT 3,1 DRAW 248,0: DRA 
и 0,-80: DRAW 8,0: DRAW 0,8 
FLOT 2,107: DRAW 248,0: FLOT 3, 
75: DRAW 248,0 

7220 PLOT 3,59: DRAW 248,0: PLOT 
122,75: DRAW 0,-22: FLOT 147,12 
3: DRAW O,-16 

7230 FRINT BRIGHT 1;АТ 7,13 "1"; 
"ЖАТ PG IAT 134140 
16; "S";AT 15,13"6"¡AT 1 


5,16; "7" 
7240 FRINT AT 7,35 "N. а1итпо:"; А 
Т 7,21; "Curso: "АТ 9, 'Apellido 
в у nombres "AT 1 з "Idioma: "¡A 
Т 15, 18; "Ке! /ЕЕ: "sAT 15,5; "Ap/Su 
в: ВАТ 15,18; "Repite:" 

7250 RETURN 


CORFECCIONES 


1 М. alumno: 2 2 Curso: 8 


А 


'Apellidos y nombre: 
Martinez Sanjuan., Luis 
4 Idioma: F 5 Fel/Et: К 


ё Ар/Зоз: 6 7 Repite: М 


E Poseo dos interfaces, uno para 
impresora Centronics y otro para 
joystick. Muy a menudo los utili- 
то, o sea que tengo que estar desco- 
nectando uno y conectando el que 
me interesa con bastante frecuen- 
cia. Mi pregunta es si tal opera- 
ción, con el tiempo, puede perju- 
dicar al conector de expansiones 
del Spectrum o a los interfaces. Y 
si es así, qué solución me podéis 
dar. 


Ivån Sansa 
Barcelona 


E] Tu problema no sería tal si to- 
das las casas dedicadas a la fabrica- 
ción de estos productos se dieran 
cuenta de que puede interesarnos 
utilizar varios interfaces simultá- 
neamente о, como es tu caso, tener 
ambos conectados constantemente. 
De hecho muchos interfaces pre- 
veen esta posibilidad y disponen de 
otra salida por la que podremos co- 
nectar nuevos periféricos. 

De todas formas en tiendas espe- 
cializadas podrás encontrar un «la- 
drón de expansiones»: el Currah 
microSlot, gracias al cual podrás 
«multiplicar» las salidas del bus 
trasero para que admita más peri- 
féricos. 


[Р] Segun el manual del Spectrum 
la instrucción BASIC IN x carga el 
par de registros bc con x y realiza 
la instrucción assembler IN a,(c). 
¿Qué valor tendría c en IN 31? ¿Y 
еп IN 327627 


Jesús Manzanal 
León 


R] Para introducir este tipo de pa- 
rámetros en memoria el ordenador 
los descompone en dos bytes (dos 
números entre 0 y 255) que son los 
que se almacenan (en nuestro caso 
en el par bc). Para «descomponer» 
así un número entero, que deberá 
estar comprendido entre 0 y 
65535, procederemos de la siguien- 
te forma: El byte más significativo 
lo conseguiremos hallando la parte 
entera de la división del valor a cal- 


cular entre 255 y el menos signifi- 
cativo sustrayendo al valor a calcu- 
lar el conseguido anteriormente 
multiplicado por 255. Si descom- 
ponemos de esta manera el número 
32 quedará 0 en el registro b y 32 
en el c. Si hacemos lo mismo con 
32762 el resultado será de 127 
para el registro b y 250 para el c. 
Para calcular el valor de un par de 
registros de dos celdas de memoria 
deberemos multiplicar el byte más 
significativo por 255 y sumarle el 
menos significativo. 


[Р] Tengo el ensamblador de códi- 
go máquina «Astron» de Dk'tro- 
nics. Cuando lo cargué en mi Spec- 
trum de 48 K e introduje el progra- 
ma del número de mayo, «Spec- 
trum parlanchin», apareció en la 
pantalla un mensaje en el que me 
impedía la colocación de etiquetas 
iguales en líneas distintas (líneas 
del programa: 17, 18, 19,20 y 21). 
¿Cómo se puede solucionar esto? 


Eduardo Fernández 
Las Palmas de Gran Canaria 


[к] Las «etiquetas» а que te refie- 
res no son tales sino «comandos» 
assembler, por lo que deberås de- 
jar un espacio antes de teclearlos 
para indicarle al ensamblador que 
no deseas poner ninguna etiqueta 
en еза linea. Seguro que estarås 
pensando que en las listas de mne- 
mönicos Z80 que seguramente has 
leído у releído no aparece esta ins- 


trucción. Pues bien, resulta que 
DEFB es una pseudoinstrucción, 
es decir que al Z80 no le dice nada, 
pero al ensamblador le indica que 
los siguientes valores debe introdu- 
cirlos directamente en memoria 
(DEFine Byte). Deberás pasar por 
algunas «experiencias» de este tipo 
antes de lograr el dominio comple- 
to de tu ensamblador, pero, si no 
desfalleces, en poco tiempo puedes 
conseguirlo. Cuenta con nosotros 
para cualquier otro problema que 
te surja. 


[2] ;сото puedo crear números 
aleatorios en código máquina? 
¿Podéis decirme cómo relacionar 
la forma de coordenadas X (0-255) 
e Y (0-175) con los archivos de 
pantalla (16384-22528)? Quiero 
saberlo para hacer un fill en C/M, 
no me aclaro con la forma de guar- 
dar la pantalla que tiene el Spec- 
trum. 

Quiero poner en contacto dos 
Spectrum a través de las conexio- 
nes del cassette. Para hacerlo emi- 
tiría por el canal 254 un 1 oun 0 y 
lo recibiría en el otro Spectrum 
por el 253. Lo que quiero saber es 
si hay interferencias, y si no las hu- 
biese qué retardo tendría que po- 
ner entre señal y señal para poder 
transmitir sin errores. 


Miguel Angel Olivar 
Madrid 


HELP Y BETA BASIC. Utilidades muy útiles. 
4........ 

Cálculo de estructuras con Spectrum. 
4........ 

Microdrive, езе desconocido. 


......:. 
Graphi-QL, un programa de dibujo 
muy especial. 


И ҮТҮ ИРУ: o N 


[к] Para generar números aleatorios 
desde el código máquina podemos apro- 
vecharnos del hecho de que la memoria 
RAM del ordenador, para que no se 
pierda, necesita ser «leída» con mucha 
frecuencia. Esta función la realiza la 
ULA constantemente, «refrescando» la 
memoria completa en pocas milésimas 
de segundo. El registro R lleva la cuen- 
ta de la zona de memoria que en ese mo- 
mento se está «refrescando», por lo que 
si conseguimos el valor de este registro 
obtendremos un número difícilmente 
predecible (ya que varía constantemen- 
te y a gran velocidad). Esto lo podemos 
hacer gracias a una instrucción del 780 
(LD A,R) que hace precisamente eso: 
carga en el registro A el valor del regis- 
tro de «refresco». Una vez hecho esto 
tendremos en el registro A un valor 
pseudoaleatorio que estará comprendi- 
do entre 0 y 127, las aplicaciones que 
queramos darle son ya otro problema... 


En cuanto a tu segunda pregunta es- 
tamos totalmente de acuerdo contigo: 
¡este sistema de almacenar la pantalla 
es verdaderamente endiablado! ¡Pero, 
oh maravilla de ROM! Disponemos de 
una rutina (PIXEL ADDRESS) ubica- 
da en la dirección 8874 (22AA hex) 
cuyo propósito es aliviarnos de este 
problema: si la llamamos (CALL 8874) 
con el valor de la coordenada X en el re- 
gistro B y el de Y en C, volverá dándo- 
nos su dirección en el archivo de panta- 
Ша en el par de registros HL y su posi- 
ción dentro del byte en el registro A 
(¡ojo!, da la posición de izquierda a de- 
recha, es decir, () para el bit 7 y 7 para 
el bit 0). 


El método de comunicar dos Spec- 
trum mediante EAR y MIC al que ha- 
ces alusión es, en teoría, perfectamente 
practicable. No deben producirse nin- 
gún tipo de interferencias. El sistema, 
de todos modos, es muy delicado. De- 
berás ante todo idear un protocolo que 
ponga de acuerdo a los dos ordenado- 
res; para ello has de tener perfectamen- 
te calculados los tiempos de ejecución 
de cada instrucción que utilices. Tam- 
bién es posible que necesites crear buf- 
fers para almacenamiento temporal de 
datos. Para recibir de la conexión EAR 


deberás hacer IN del bit 6 del port 254 
y OUT al bit 3 del mismo port para 
«excitar» la conexión MIC. Esperamos 
noticias tuyas (con el problema resuel- 
to, por supuesto). 


[Р] Les mando esta carta con el fin de 
si serian tan amables de decirme сото 
puedo introducir el programa RESET 
publicado en el número dos de su revis- 
ta TODOSPECTRUM, ya que a mí 
que no tengo ni idea de código máqui- 
na o assembler me es imposible desci- 
frar todas las cosas que pone en dicho 
programa. 


Otro motivo de esta carta, y también 
relacionado con el código máquina, es 
el siguiente: yo no sé cómo introducir 
todas las sentencias que hay en los pro- 
gramas de este tipo y quería preguntar- 
les cómo se introducen estas sentencias 
por medio de POKES; o sea que lo que 
quiero saber es por qué números se de- 
ben cambiar estas sentencias para ser 
introducidas. 


Alberto Sánchez 
Alcalá de Henares 


[к] En la sección «Preguntas y Res- 
puestas» del número seis publicamos 
un programa en BASIC, enviado por 
Aitor García, que cargaba esta rutina 
en una sentencia REM al principio del 
programa. Copiando este programa al 
pie de la letra no debes tener ningún 
problema para disfrutar de esta nueva 
función en tu ordenador. 


En cuanto a tu segunda pregunta te 
recomendamos adquieras algún libro de 
iniciación al código máquina, donde 
puedas aprender todo lo referente a este 
lenguaje. De todas formas en el apéndi- 
ce A del manual y junto al juego de ca- 
racteres encontrarás todos los mnemó- 
nicos del lenguaje ensamblador y sus 
correspondientes códigos en decimal y 
hexadecimal. 
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SUSCRIPCIONES: 
Rogamos dirijan toda la 
correspondencia relacionada con 
suscripciones a: 
TODOSPECTRUM 

EDISA: Tel. 41597 12 

C/ López de Hoyos, 141-5.° 
28002 MADRID 

(Рага todos los pagos reseñar 
solamente TODOSPECTRUM) 
Para la compra de ejemplares 
atrasados dirijanse а la propia 
editorial 

TODOSPECTRUM 

C/ Bravo Murillo, 377-5, A 

Tel. 733 74 13- 28020 MADRID. 


Si deseas colaborar en TODOSPEC- 
TRUM remite tus artículos о progra- 
таза Bravo Murillo 377, 5° A. 28020 
Madrid. Los programas deberán estar 
grabados en cassette y los artículos 
mecanografiados. 

Å efectos de remuneración, se anali- 
та сада colaboración aisladamente, es- 
tudiando su complejidad y calidad. 


_SEIKOSHA SP-800 


La nueva impresora de SEIKOSHA SP-800, con un ordenador personal puede 


escribir 96 combinaciones de letra diferentes, 


desde 96 caracteres por segundo 


а 20 con muy alta calidad de letra, 


ademås es gråfica en alta densidad. 


Su precio es de 69.900 В соп introductor automático hoja a hoja. 


Con un 


pequeño ordenador personal, 


un procesador de textos puede costar 


alrededor de cien mil pesetas. 


Infórnese y comprenderá por qué las máquinas de escribir tienen denasiados años 


Nuestra calidad es "SEIKO"; 


ESTOS SON NUESTROS MODELOS: 


nuestros precios, únicos 

51 desea más información, 
consulte con nuestro distribuidor 
más cercano, llame o escriba a: 


MODELO VELOCIDAD | COLUMNAS |TIPOE DE 


TETRA 


Gp eos LA BEL SPEGTRUM| 
ЕЗ E 


EE Н 
оїтєсстон COMERCIAL ГА ECONonica E 
Бастен ЫРЫ Ты в 
БЕТЕ FO ВЕ БЕЗ 

т 98 EA RAS RASIDA nez БЕН 


ТЕ indicados son op recomendados pata тете, tipo 
18 Esht onies, Siro tipo de t nenion аш теп un ligero 


biex 82220 
DIRECCION COMERCIAL EN CATALUNA: 
вота ара: 


G/Muntaner, КЕНЕЕН 


Este pie de página ha mido realizado integramente con la nueva impresora 


SEIKOSHA SP-.800 


SPECTRUM 
EL REGALO FIN DE CURSO CUM LAUDE 


peque Y la Garantía Investrönica. Exijala al comprarlo ya que 
le protege de cualquier anomalía o reparación. 


Temás Bretón 


